DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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AAAAAA 
AAAAAA 
AA Aa 
Ag AA 
AA AA 
AK AA 
Aa AA 
AA AA 
AAAAAAAAAA 
AAAAAAAAAA 
Ah AA 
AA Aa 
Aa AA 
AA BA 
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MODULE DBGNPARSE (IDENT = ‘v04-000") = 
BEGIN 


OSS EELIILI OIE I IIT T ITEC TTT rT rir iri iii i iii iti i rit iti it itiiiiiiiiiiey 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH TH 
'# INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
7 
® 
® 
sd 
# 
® 
® 
® 
ie TRANSFERRED. ‘ 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
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fololo loro) 


333500 


— 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ND SHOULD I 


E 
te 6A NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!t CORPORATION. 


!® DIGITAL ASSUMES NO R gO: ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
's SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
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i 
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i 

David Plummer April 15, 1980 

! MODIFIED BY 
3 ‘ Rich Title 

} Vicki Holt 

Bert Beander 
; 7 ! MODULE FUNCTION 

8 : This module contains the highest level parse network, DBGSNPARSE_CMD, and 
3 9 : several pereine associated routines. Legal command verbs are recognized by 
4 0 ' DBGSNPARSE_CMD and control is passed to the subnetwork responsible for parsing 
& 1 : the rest of the input associated with the verb recognized. In total, the 
4 0 ¢ : routines produce a command execution tree which is the version 3 debugg*" 
: Gos } form of intermediate code. 
4 045 ; Also contained in this module are the routines DBGSNPARSE_ADDRESS and 
4 Bey ; DBGSNPARSE _EXPRESSION which are the interfaces between the debugger 
Z ef parser and the Address Expression Interpreter and Expression Interpreter. 
4 04 
5 930 REQUIRE ‘SRC$:DBGPROLOG.REQ'; 
3 18s FORWARD ROUTINE 
5 1 $ DBGSNPARSE_CMD, ! Highest level network for parsing 
5 1 DBGSNMATCH, ' String matching routine 
5 188 DBGSNNEXT_ WORD ! Produces a counted spring from the input 
3 189 DBGSNPARSE_EXPRESSION, i Interface to expression interpreters 
190 DBGSNPARSE_ADDRESS, ! Interface to address expression interpreters 


GNPARSE 
vOs~000 


LLINTEGER, 


E “NAME, 
NOVALUE ; 


1 
1 
' 
i 
i 
i 
i 
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' Converts string input fo integer 


Stores a str Rasy input 
Parses ad rect 

Expands name seid sith DEF INE 
Signal a syntax error in command 


3.1 


ong IEREEHOEA LSND HMESL SARS a 


- 7:1 DEBUG. SRC JDBGNPARSE .832;1 
>; 66 36 1 EXTERNAL ROUTINE 
3 97 (1 DBGSADDR_EXP_INT, i Address Expression Interpreter 
; 38 1 DBGSDEF _SYM_FIND, ' Look up a symbol in the 
3 99 1 : DEFINE symbol table 
3 0 } DBGSGET_MEMORY ! Allocates space 
: 1 DBGSGET-TEMPMEM, i Allocates and Lists dynamic storage 
: § 1 DBGSEXP_ INT ; azpresezen Interpreter 
; 1 DBOSNPARSE ALLOCATE, ' ALLOCATE command parse network 
; 06 1 DBGSNPARSE_AT_SIGN, ! @ filespec parse network 
; 05 1 DBGSNPARSE_ATTACH, ! ATTACH command parse network 
: Be 1 DBGSNPARSE_ CALL ' CALL command parse network 
; 0 1 DBGSNPARSE CANCEL i CANCEL command parse network 
; 6 1 DBGSNPARSE DECLARE, i DECLARE command parse network 
3 09 1 BGSNPARSE_DEF INE, ! DEFINE command parse network 
; 0210 1 DBGSNPARSE _DELETE ! DELETE/KEY command 
: 0 11 GSNPARSE_DEPOSIT, i DEPOSIT command parse network 
3 \¢ 1 DBGSNPARSE_DUMP, ! DUMP command parse network 
3 8 i) Be DBGSNPARSE_EDIT, ! EDIT command parse network 
3 14 1 DBGSNPARSE EVALUATE, ! EVALUATE command parse network 
3 0215 1 GSNPARSE_EXAMINE, ! EXAMINE command parse network 
3 0 1 1 DBGSNPARSE_EXIT, ! EXIT command parse network 
3 8s! 1 DBGSNPARSE _EXITLOOP, ! EXITLOOP command parse network 
; 0218 1 DBGSNPARSE_FOR, ! FOR command parse network 
3 0219 1 DBGSNPARSE_GO, ! GO command parse network 
3 asso 1 DBGSNPARSE_HELP, ! HELP command parse network 
; 0221 1 DBGSNPARSE_IF ! IF command parse network 
; 0 sf 1 DBGSNPARSE REPEAT, i REPEAT command parse network 
3 0 1 DBGSNPARSE_SEARCH, ! SEARCH command parse network 
: osS¢ 1 DBGSNPARSE_SET, ! SET command parse network 
3 0225 1 DBGSNPARSE_ SHOW, ' SHOW command parse network 
; 0226 1 DBGSNPARSE_ SPAWN, ! SPAWN command parse network 
$ 5544 1 DBGSNPARSE_STE ! STEP command parse network 
; 9% 0228 1 DBGSNPARSE_SYMBOLIZE, i SYMBOLIZE command parse network 
; 97 $594 1 BGSNPARSE_TYP ! TYPE command parse network 
; «98 0250 1 DBGSNPARSE _UNDEF INE, ! UNDEF INE command parse network 
; 299 0231 1 BGSNPARSE WHILE ! WHILE command parse network 
; 100 02 ¢ 1 DBGSNMAKE ARG_vECT, ! Constructs a message vector 
3: 101 0 1 DBGSNOUT_ INFO ! Outputs an info message 
; 198 0 34 1 DBGSNREAD_NAME , i Reads a name that is 
; 10 ie : a potential DEFINEd name 
; 104 $39 1 DBGSNSET_LAST_TYPLEN, ! Sets type and length of current location 
; 105 1 DBGSNSYNTAX_ERROR, ! Constructs a message vector for a syntax error 
; 106 #3 1 DBGSREL_MEMORY ' Release memory from pool 
: 44 8 - @ DBGSSCR-PARSE_DISPLAY CMD: NOVALUE, ! Parse the DISPLAY command 
; 108 40 1 DBGSSCR_PARSE- SAVE CMD; NOVALUE, ' Parse the SAVE command 
; 109 0241 1 DBGS$SCR_PARSE_SCROCL_CMD: NOVALUE, |! Parse the SCROLL command 
; 110 4g 1 DBGSSCR_PARSE SELECT_CMD: NOVALUE, ! gorse the SELECT command 
: 1) $ : DBGSSTA_SETCORTEXT : ; ! Sets registers context 
; 118 45 1 EXTERNA 
3. 6116 re 1 DBGSGL_DEVELOPER: BITVECTORC), ' Developer stops 
3. 6115 47 1 DBGS$GL_EDIT_ENABLED, ! Flag saying whether the EDIT 
; 116 rt 1 } ommand is enabled. 
eB 49 1 DBG$GB_RADIX: VECTOR(3, BYTE), ' Radix settings 
: #118 50 1 DBG$GB_EXC BRE FLAG: BYTE, ' Flag set if we are in exception break 
; (119 51 1 DBG$GB_-LANGUAGE: BYTE, ' Current language code 
3 120 52.1 DBGSGL_SCREEN_NOGO, ! Flag to disable STEP, GO, and CALL in 
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14-Sep-1 17:1 DEBUG. SRC DBGNPARSE. “3 31 
5. Se os ! screen display command Lists 
; : § 3 ! DBGSGB_VERB: BYTE; ! Holds command verb value 
; «126 8 1 LITERAL 
s 125 1 ALLOCATE VERB = DBGSK_ALLOCATE_VERB,! Code for ALLOCATE command 
.% § 8 1 AT_SIGN_VERB = pegex K_AT_SIGN_VERB, ! Code for indirect command file execution 
ee 1 ATTACH VERB” = DBGSK_ATTACH VERE B, ' Code for ATTACH comm 
: 128 0260 1 CALL VERS 0B CAL ' Code for CALL command 
: 129 61 1 CANCEL_VERB = beGse CANCEL VERB ' Code for CANCEL command 
: 150 $6 1 DECLARE_VERB = opete $R_DECLARE VERB, ' Code for DECLARE command 
3 (131 63 1 DEFINE_VERB = DEF INE_VERB ! Code for DEFINE command 
aoe ¢ 8 64 «1 Peery VERB = pee GS$K-DELETE- ERB. ' Code for DELETE command 
SS 65 1 DEPOSIT_VERB = DBGSR -DEPOSTT VERB, ! Code for DEPOSIT command 
a. y 0 08 1 DISPLAY_VERB = DBGSK-DISPLA VERB, ! Code for DISPLAY command 
3 155 0267 1 DUMP_V Re = DBGSK. DUMP_VERB. ! Code for DUMP command 
. 2 $ 0268 1 EDIT-V DBGSK_EDIT_VERB, ' Code for EDIT command 
o.' ei 0269 1 EVALOATES VERB = DBG$K_EVALUATE_VERB,! Code for EVALUATE command 
; 138 0270 1 EXAMINE JER a : ofecek EXAMIN NE_VERB, ' Code for EXAMINE command 
; 139 0271 1 EXIT_VERB G$K_EXTT_VERB ' Code for EXIT command 
: 140 0 i 1 EXITCOOP” “VERB 2 pees EXiTLOOP _VERB,! Code for EXITLOOP command 
3: 141 0273 (1 FOR VERB = DBGSK_FOR_VERB, ' Code for FOR command 
$ 106 0274 1 GO VERE 5 DBGSK Go. VERB. i Code for GO command 
s 146 0275 1 HEC DBGSK AELP VERB, ' Code for i command 
3: (144 0276 1 IF VERB. ; DBGS IF_vERB ' Code for IF c and 
s 165 0277 1 REPEAT VERB = DBGSR REPEAT VERB, ' Code for REPEAT. conned 
> 146 be78 1 SAVE_VERB = DBG$K_SAVE ' Code for SAVE command 
3: 6147 0279 1 SCROCL_VERB = DBGSK_SCROLL_VERB, ' Code for SCROLL command 
: 148 0280 1 SEARCH VERB = DBGSK_SEARCH_VERB, ' Code for SEARCH command 
3; «149 0281 1 SELECT ‘wr = DBGSK- SELECT V VERB, ' Code for SELECT command 
3; 150 bees 1 VERB: BGS$K VERB ' Code for SET command 
: 151 0283 1 soa” VE RB = "DBGSED SHOW ove fe i Code for SHOW command 
; 138 0284 1 SP PAWN VERB = DBG$ VERB, i Code for SPAWN command 
: 15 0285 1 TEP vee - epee eee aNeMe ! Code for STEP command 
3; «6154 8 Hy] 1 SyRBOLI? ERB = 
s 435 87 1 DBG$K_SYMBOLIZE_VERB, ' Code for SYMBOLIZE command 
s 136 0288 #1 TYPE vERe = DBGSK-TYPE_VERB; ' Code for TYPE command 
3; 6157 0289 1 unpe EFINE VERB = DBG$K_ONDEF INE -VERB, : Code for UNDEFINE command 
: 158 0290 1 wal Ite VERS = DBGSK_WHILE_VERB,~ Code for WHILE command 
3 «6159 0291 1 D_SIZE = 80; Maximum word size 
; 160 S95 1 
; 161 0295 1 OWN ; 
; Té2 0294 1 WORD_BUF : VECTOR CWORD_SIZE + 1, BYTE]; ! Buffer for counted string word 
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14-Sep-1984 12:17:1 DEBUG. SRC JDBGNPARSE .832;1 

GLOBAL ROUTINE DBGSNPARSE_CMD (INPUT_DESC, VERB_NODE_PTR, MESSAGE_VECT) = 
FUNCTIONAL DESCRIPTION: 
i Highest Level command parsing ATN network. This routine recognises the 

verb portion of the input command and transfers control to the appropriate 

ATN subnetwork to parse the rest of the command. 
i FORMAL PARAMETERS: 

INPUT_DESC - Standard VAX string descriptor of the input command. 


VERB_NODE_PTR = Pointer to the verb (head) node of the command 
execution tree. 


MESSAGE _VECT - Address of a longword to contain the address of 
a message argument vector. 


i IMPLICIT INPUTS: 


' 
! 
' 
' 
! 
' 
! 
' 
' 
' 
1 
! 
! 
' 
! 
' 
NONE 
a 
{ 
] 
' 
‘ 
! 
] 
' 
' 
' 
' 
' 
' 
' 
' 
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i IMPLICIT OUTPUTS: 


The command execution tree is constructed and verb_node_ptr is set to point 
to the dynamically allocated verb node which is the head node of the tree. 


i ROUTINE VALUE: 
unsigned longword integer completion code 
i COMPLETION CODES: 
STSSK_SEVERE (4) - unsuccessful parse 
STSSK_SUCCESS (1) = successful parse of the input command 


ee ee ec el el ee eel el cel cel el el eel al ell cel el el 
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BEGIN 
MAP 
INPUT_DESC : REF DBGSSTG_DESC; ! Input string descriptor 


Define strings used at this level of parsing 
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BIND 

DBGSCS_ALLOCATE = UPLIT BYTE(ZASCIC ‘ALLOCATE'), 

DBGSCS-AT SIGN = UPLIT BYTE(1, DBGSK_AT SIGN), 

DBGSCS-ATTACH = UPLIT BYTE(ZASCIC ‘ATTACH'), 

DBGSCS~CALL = UPLIT BYTE(ZASCIC CALL"), 

DBGSCS"CANCEL = UPLIT BYTE(ZASCIC ‘CANCEL') 

DBGSCS"DECLARE = UPLIT BYTE(ZASCIC 'DECLARE'S, 
4 DBGSCS-DEFINE = UPLIT BYTE(ZASCIC ‘DEFINE'), 
4 DBGSCS-DELETE = UPLIT BYTE(ZASCIC ‘DELETE') 
35 DBGSCS"“DEPOSIT = UPLIT BYTE(ZASCIC "DEPOSIT'S, 
5 DBGSCS“DISPLAY = UPLIT BYTE(ZASCIC "DISPLAY'). 
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_VERB; 
ESC, .VERB_NODE, .MESSAGE_VECT) 


. 
© ~ 
~ z 

. - ~ cc 
~ o ses « we = 
a NN Ww fe 

a = | .s «- —-*-. Se ee LD ee * | 
eR ER eee mI ee 


!' Verb node (head of tree) 
1) 


_-VERB_NODE_SIZE); 
$k _ACLOCATE VERB; 
(. INPUT_ 


VERB_LITERALJ = ALLOCATE 


nn ee ee ee ee ee 

Oo Oo Oe Ot Od Og td Od Od Od Od Ok Ok Od Od ad Od Os Od Bd Os Og Oe 

BtaiidvtdidAldddbddd ddd deb ddd 
Qaaacagcagdgcagadcadgcadcadcaaada 
pe Soe Doe Je ee Fee oe Joe Soe Sees eee ee pee ee eee eee ee ee eee eee ee ee | 


RSE_ALLOCATE 


Enotunth 
-INPUT_DESC, DBGSCS_ALLOCATE, 2)): 


NODE (DBG$B 
- INPUT_DESC, DBGSCS_AT_SIGN, 1)): 


VERB_NODE CDBG$B_VERB_LITERAL] = AT_SIGN_VERB; 


TEMPMEM (DBGSK 
ERB_NODE; 
ize a legal verb. If one is found, transfer control 
VERB 
K 


: REF DBGSVERB_NODE; 
parse su 


qn 

IF (SELECTONE TRUE OF 
END; 
BEGIN 


DBGS 
COBGSNMATCH ( 


rh 
GB 
DBGSNP 


= 0; 
gisters to current context as a default 


DBGSSTA_SETCONTEXT (0); 
CDBGSNMATCH ( 


SET 


VBVEEE EVV EYVYVOEVYVYVYYVYVUVYUVLYU 
Sess essessaooeeeeene 
@ 
Qa 


NODE_PTR = .V 
VERB 


VQVOVVGOVV VV VSVVVVeVEVEVVYE 
aoocnceaa EOoooKoHaaGaaaaa 


NODE = DBGSGET 


VERB_NODE 
to a comman 


' Construct and Link the verb node 
Try to reco 


6 
GB 
' Set re 


LOCAL 
VERB 
VER 
DBGS 
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16-Sep-19 1:47:17 AX-11 BLi 
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DBGS$GB_VERB eax A 


SIGN_V 
oo AT. NT. In Put Be osc «VERB_NODE, .MESSAGE_VECT) 


te “ya (. INPUT_DESC, DBGSCS_ATTACH, 3)): 


VERE Rove Ree opt aT ahha tae ATTACH_ VERB; 
DBGSNPRRSE. ATTACH (CINPUT_BESC, .VERB_NODE, .MESSAGE_VECT) 


Check for the CALL command. If this is the CALL command, we 
signal an error if we are currently in an exception break 
a cannot do a CALL if we will restart the program by re- 

signalling inovesd” of continuing) or if we are currony ty 
executing the DEBUG command List of a screen display (which 
would cause an infinite loop of screen display updating). 
Otherwise we parse the command normally. 


[DBGSNMATCH (.INPUT_DESC, DBGSCS_CALL, 3)]: 
BEGIN 


VERB NODE Loacse VERB LITERAL = CALL_VERB; 
BG$GB_V bBGSK ALL. VERB; 
0° .D pBtyee E FLAG THEN SIGNAL (DBGS$ STEFROEXC); 
if DBGscr ns CREENC NOGO THEN SIGNAL (DBG$_ROSTE 
DBGSNPARSE ALL (TINPUT_DESC, .VERB ONODE, MESSAGE _VECT) 


(Foacececacacacaca 


CDBGSNMATCH (.INPUT_DESC, DBGSCS_CANCEL, 3)]: 


VERB 71“ Fab e ORCSE TR AM age TA CANCEL_VERB; 
DBGENPARSE. CANCEL (TINPUT_BESC, .VERB_NODE, .MESSAGE_VECT) 


ate 75 ht (. INPUT_DESC, DBGSCS_DECLARE, 3)): 

VERB vt peecss VERB_LITERAL] = DECLARE_VERB; 

D = DBGSK_ DECLARE VE RB; 

DBGENPARSE DECLARE “ INPUT HESC. -VERB_NODE, .MESSAGE_VECT) 
SORSSIeMT CN (. INPUT_DESC, DBGSCS_DEFINE, 3)]: 

aeee NODE CDBGSB VERB TM ge Tn DEF INE_VERB; 

BG$GB_VERB = DBGSK_DEFI ERB; 

DBGENPARSE. DEF INE ( INPUT oescs: -VERB_NODE, .MESSAGE_VECT) 
anaes Cy ae (. INPUT_DESC, DBGSCS_DELETE, 3)]: 

Maa ty noe greets VERB LATERAL) DELETE_VERB; 


DBGSK_DE ERB; 
DBGSNPRRSE. DELETE (y INPUT DESC, .VERB_NODE, .MESSAGE_VECT) 


s-32 V4.0 


“838; 
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cots 71 (. INPUT_DESC, DBGSCS_EXAMINE, 1)): 


VERB THODE  COBGSE VERB LITERAL) = EXAMINE _VERB; 
DBGSNPARSE. EXAMINE T. INPUT esc -VERB_NODE, .MESSAGE _VECT) 


3 5 188 i coeemeercn (. INPUT_DESC, DBGSCS_DEPOSIT, 1)]: 

3 re 4 3 Bre NNODE CDBG$B_VERB EateeA = DEPOSIT_VERB; 

3 3 rs 4 GB_VERB = DBGSK_DEPOSIT VERB; 

3 a6 rh 4 DBGSNPRASE DEPOSIT ? INPUT "seSsc. -VERB_NODE, .MESSAGE_VECT) 
: 341 47 ; 

3 re ar anat *7 ham (. INPUT_DESC, DBGSCS_DISPLAY, 3)]: 

: 346 475 4 VERB_NODE CDBGSB VERB TN a? = DISPLAY. VERB; 

; 345 rt 4 4 G$GB_VERB = OBGSK_DISP 

3 re of ? paGSSCh. PARSE DISPERY Teme. YENBUT: DESC, FALSE, .VERB_NODE); 
3 rk <7 ; END; 

3 2 i i CDOSReAT CH (. INPUT_DESC, DBGSCS_DUMP, 2)]: 

3 26 04 g 4 a HOPE pects yers LITERAL = DUMP_VERB; 

3 53> 0484 4 BG$6B_V pBGSK VERB; 

3 re ot H 4 DBGENPARSE DUMP. ¢ C IRPUT *oese -VERB_NODE, .MESSAGE_VECT) 
; 356 048 

s sor 0488 

: 58 0489 ! The EDIT command is our interface to the EDITH gone editor. 
; 359 0490 ! We allow this command if a certain global flag is set. 

; 360 0491 ' That ee the command can be disabled for vordion a*0: 

; 361 049 i and enabled with a patch in a future release. The 

5 ¢ 049 ' all- purpose developer bit 0 also enables this command, 

5 a7 begs } so that developers can easily test it. 

3 22 Beas ? C (IF .DBGSGL_EDIT_ENABLED OR .DBGS$GL_DEVELOPER(O) 

3; 567 0498 4 DBGSNMATCH (.INPUT_DESC, DBGSCS_EDIT, 2) 

; 368 0499 4 ELSE 

; 9 3200 3 FALSE): 

3 0 501 4 N 

: 371 3208 4 VERB_NODE CDBGSB VERB_LITERAL) = EDIT_VERB; 

. 05035 4 DBG$GB_VERB = DBGSK_EDIT_VERB; 

. ov 0504 4 DBCSNPARSE “EDIT ( C ERpUT Desc, -VERB_NODE, .MESSAGE_VECT) 
: 374 0505 END; 

; 375 0506 

e oe 0507 

3 : Bens i CDBGSNMATCH (.INPUT_DESC, DBGSCS_EVALUATE, 2)): 

3; of $393 4 VERB +. nnetes VERB ii EVALUATE_VERB; 

: 380 B21) 4 DBG$GB_V DBGSK =f FAL RB; 

; 381 21¢ 4 SO CSNPRNSE. EVALUATE” ( tpoT Bese. -VERB_NODE, .MESSAGE_VECT) 
; «38 051 END; 

3 514 

3 51 

3 516 4 

; 517 4 

3 ba! 4 

7 ° ? 


mC OCOnou 


ww 
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CDBGSNMATCH (.INPUT_DESC, DBGSCS_EXIT, 3)]: 
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- 4 12:1 DEBUG. SRC JDBGNPARSE .B32;1 (3) 
9 3 BEGIN 
9 4 VERB NODE CDBG$B_VERB_LITERAL] = EXIT_VERB; 
94 5 DBG$GB_VERB = DBGSK_ EXIT VERB; 
se : DBGSNPARSE EXIT (, INPUT_BESC, .VERB_NODE, .MESSAGE_VECT) 
9 oe 
38 $ CDBGSNMATCH (,INPUT_DESC, DBGSCS_EXITLOOP, 5)]: 
400 1 VERB_NODE CDBG$B_VERB LITERAL] = EXITLOOP_VERB; 
401 ‘ DBG$GB_VERB = DBGSK_ERITLOOP VERB; 
rt Z DOGSHPARSE XI TLOOP (. INPUT_BESC, -VERB_NODE, .MESSAGE_VECT) 
04 5 ’ 


CDBGSNMATCH (.INPUT_DESC, DBGSCS_FOR, 1)]: 


VERB_NODE COBGSB_VERB_LITERAL] = FOR_VERB; 
DBGS$GB_VERB = DBGSK VERB; 
+ Paamaae dae (. INPUT_BESC, .VERB_NODE, .MESSAGE_VECT) 


Sle 


COBGSNMATCH (.INPUT_DESC, DBGS$CS_GO, 1)]: 


VERB_NODE COBGS$B_VERB_LITERAL] = GO_VERB; 
DBGSGB_V = GOU_VERB; 

IF ,DBGSGL_SCREEN NOGO THEN SIGNAL (DBG$_NOSTEPGO) ; 
an (. INPUT_DESC, .VERB_NODE, .MESSAGE_VECT) 


sata 5 Na (. INPUT_DESC, DBGSCS_HELP, 1)]: 
VERB_NODE COBGSB_VERB LITERAL] = HELP_VERB; 


G VERB = DBGSK_HELP_VERB; 
DOGSNPARSE _WELP (, INPUT_BESC, .VERB_NODE, .MESSAGE_VECT) 
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COBGSNMATCH (.INPUT_DESC, DBGSCS_IF, 1)]: 


N 
VERB_NODE CDBGSB_VERB_ LITERAL) = IF _VERB; 
DBG$GB_VERB = DBGSK IF VERB; 

DOGSNPARSE_ IF (.INPOT_BESC, .VERB_NODE, .MESSAGE_VECT) 
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COBGSNMATCH (.INPUT_DESC, DBGSCS_REPEAT, 2)]: 


N 
VERB_NODE CDBG$B_VERB_ LITERAL] = REPEAT_VERB; 
DBG$GB_VERB = DBGSK_REPEAT VERB; 
POGSNPRASE REPEAT (TINPUT_BESC, .VERB_NODE, .MESSAGE_VECT) 


VIN 


CDBGSNMATCH (, INPUT_DESC, DBGSCS_SAVE, 3)): 
VERB_NODE (DBG$B_VERB_LITERAL) = SAVE_VERB; 
DBG$GB_VERB = DBGSK_SAVE_VERB; 
DOGESCR_PARSE_SAVE_CHO(.TNPUT DESC. . VERB_NODE); 
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COBGSNMATCH (.INPUT_DESC, DBGSCS_SCROLL, 3)]: 
BEGIN 


yee A Bat a fT dat to SCROLL _VERB; 
bBGSScR. PARSE Site CMD(. INPUT: DESC, .VERB_NODE); 


END; 
COBGSNMATCH (.INPUT_DESC, DBGSCS_SEARCH, 3)]: 
BEGIN 


VERB _NODE sbecss VERB LITERAL) = SEARCH_VERB; 
DBG$GB_VERB DBGSK. SEARCH VERB; 
ones NPARSE SEARCH ¢ “input NoEsc. -VERB_NODE, .MESSAGE_VECT) 


COBGSNMATCH (.INPUT_DESC, DBGSCS_SELECT, 3)]: 


N 

VERS NODE CDBGSB yeRs LITERAL) = SELECT_VERB; 
BGS$GB_VERB = DBGSK T VERB; 

DBGSSCRL PARSE Street CHOC. INPUT_DESC, .VERB_NODE); 


END; 
CDBGSNMATCH (. INPUT_DESC, DBGSCS_SET, 2)]: 
VERB NODE aracss VERB LITERAL = SET_VERB; 
BG$GB_V pBGSK VERB; 
DBGENPARSE. set % INPOT "peste .VERB_NODE, .MESSAGE_VECT) 
CDBGSNMATCH (.INPUT_DESC, DBG$CS_SHOW, 2)]: 
VERB NODE Coacss VERB LITERAL] = SHOW_VERB; 
BG$GB_V DBGSK VERB; 
DBGENPARSE. show « CIRPUT “oeSC. .VERB_NODE, .MESSAGE_VECT) 
CDBGSNMATCH (. INPUT_DESC, DBGSCS_SPAWN, 2)]: 
VERB_NODE (DBG$B VERB pk iTERAL = SPAWN_VERB; 
DBG$GB_VERB = DBGSK_SPAWN VERB; 
DBGSNPRRSE. SPAWN ( c reur _BESC, .VERB_NODE, .MESSAGE_VECT) 
CDBGSNMATCH (. INPUT_DESC, DBGSCS_STEP, 1): 
VERB NODE CoBGse VERB rEBTERAL = STEP_VERB; 
BG$GB VERB = DBGSK_STEP VERB; 
1d DBGSGL SCREEN_N Koco: TREN SIGNAL (DBG$_NOSTEPGO); 
DaciNPAnse STEP (TINPUT_DESC, .VERB_NODE, .MESSAGE_VECT) 
CDBGSNMATCH (, INPUT_DESC, DBGSCS_SYMBOLIZE, 2)): 
VERB NODE COBGSB VERB LITERAL) = SYMBOL IZE_VERB; 


GB_VERB = DBGSK SYMBOLIZE VERB; 
DBGSNPARSE PSYMBOLIZE ¢ (, INPUT DESC. -VERB_NODE, .MESSAGE_VECT) 
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END; 
COBGSWAATCH (. INPUT_DESC, DBGSCS_TYPE, 1)]: 
VERB_NODE CDBGSB_VERB LITERAL) = TYPE_VERB; 


DBGSGB_VERB = DBGSK TYPE yERs: 
DEGSNPARSE TYPE (. INPUT_BESC, .VERB_NODE, .MESSAGE_VECT) 


teacwenren (. INPUT_DESC, DBGSCS_UNDEFINE, 1): 

VERS NODE foecse VERB_LITERAL] = UNDEF INE_VERB; 

DBG$GB_VERB = DBGSK_URDEF INE VERB; 

DEGSNPARSE UNDEF INE (. INPUT_BESC, .VERB_NODE, .MESSAGE_VECT) 
COBGSNAATCH (. INPUT_DESC, DBGSCS_WHILE, 1)]: 

VERB_NODE CDBGS$B_VERB LITERAL) = WHILE_VERB; 


DBGS$GB_VERB = DBGSK_WRILE VERB; 
DOGSNPARSE WHILE (.INPUT_BESC, .VERB_NODE, .MESSAGE_VECT) 


Any other command name constitutes a syntax error. 

COTHERWISE): 
nee = DBGSNSYNTAX_ERROR (DBGSNNEXT_WORD (.INPUT_DESC)); 
END; 

TES) 


RETURN 
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Check for exhausted input 
(IF .INPUT_DESC CDSCSW_LENGTH) EQL 0 OR 
THEN COsNAATCH (. INPUT“DESC, DBGSCS_CR, 1) 
STS$K_SUCCESS 
ELSE 
E 


T = DBGSNSYNTAX_ERROR (DBGSNNEXT_WORD (.INPUT_DESC)); 


SE 
RETURN STS$K_SEVERE; 


| 
; 
; 
; 
; 
; 
; 
; 
; 
; 


5 
5 


=PIMNINIGR & & BAA NIPPININININI HUA & WNW BBB BAIS BB PIB BBP 


oo 


-TITLE DBGNPARSE 


12 


) 


( 


Page 


s-32 V4.0-74 
PIC,0 


{OkaUG. SRCIDBGNPARSE 1039; 1 


-IDENT \v04-000\ 


SHR, 


AXx-1 


-PSECT DBGSPLIT,NOWRT, 


DBGNPARSE 
-000 


Vv 


= 
= = = we 

w = “- w- a ~ Ww 

—- - 42u47e> —-w oO “- #427 —_— 2 

<= = wjeww <2 oO —- site - a =e 
eo V4ewe ZeHNwS Ss Oe we KU ff £7 40U oacee 
So <€.407—wOo0oadogIkee- a wes! 2 a= 
=i eee. Sas ene JO oad ut OCwkaao- 
a de dwwww o> xX xX KOOWe wt OWWwwTtoe>> Zr 
I~ TtVV AOC CWWwWwWwWs VT ZNNNNNMNNYN HY DBM 
POL AA AL AA AA AAA AAA A OA A AAA AA AA AAA? ASO 
A AAAAAAAAAAAAAAAAAAAAAAAAAAARAAAA 
@O ~OvT OP. OORPK. FOR. SFOMCUST OOS OOOMTNTO~wTOM «+ 
VEVV VV VV VV VV VV VV VV VV VV VV VV VV VV VV Ve 
_— Se sd a Os Od ad a Os ad Og Od Od Ok nd Od Se ng Od Od Sd Og Og Og Ong OG OG Oy OG 
Ot LL Ot Oe Oe Bg ag ang mg ag mg ag at Fg ad Ot a Oy Od ge a Oy yg ag Oy Og a Oe) 
VBR VV VVV VV VV VV VV VB VOB VV VO OVO VU UU OVUUF 
A> NNNMMMNMNVWHHVWHVWVVWVVHWHVWHUHHMHHMHWVHWVNUVWHHMWMNHNMHNW > 


<M 6W OF 9 IF ZOO GEN DS3Bx>NEDOCOWU OT 
aaaaeeeeeeaad 444A OOOOOO 
a4a4e4e44444444444444444444444444444<4<4 
a se a a ss « se — o 2 - . — a ee 7 o 7 . o _ 2 a . se e* o e. oe . 
aocnaooanoooaoooooooooooooooooooooo4Kn 
WOOs O~owr uw Oe oO UMau vu-mo 
Seae SSRIS SrA LSSSSS=a2Va8SSs 


Or OS OF- ODOR FIFO TF OMT VOT OOOM ITN TO TOM 
GOOQCOGCOOOOOOOOOCOOOCOOOSOSOSOSOCCOOCoCOooO 


SDS SF FFF TANNA DP. DWDM MIMI MIMI MII ATE 
SPSS SPP GF PSS SSS SFT TON 


PL Fe HNN WMI OWN TF OOOO &_ & NOME MINN DOT OO Wd 
LVF FSP PF PNT NNW FFT TT TOONS 


w 
VY TFTLEUMDOVYVOMAG$—K—BFON Y OONRKVTuK-NaAa0CToO 
TF wwe ron rrr MWA TWF TT TOT ST 


wT 
H—UMVOmuCOOowrvo vrs 4 MWMEWN KROMMMNY 


— 
TF weve I TOOmes Tm Tvs MNT 
Mm MO Wewrmu mo ww - wom we. wom 
Tr wT wees was TF wwe Tr wT vw 
- OO VOUNMNmNO- -w wr vow ve Oo 
Tr TF WMS www w www wr w 
w w Two rw we ao w 
wo w ww wr wT wv w 
wm wn o z= ww 
w wr w ww wv 
wn 
w 


PIC.2 


-PSECT DBGSOWN,NOEXE, 


00000 WORD_BUF : 
-BLKB 


E€QUVVOO0O000Oww 


Et Se a ee Pe EN Ie SOE LEN TOMBE ag 


18 


im 


CHAMMNNNNNNNononw 


COVUOVUTCVTVT TCV VT VTVTVTVT9C0C0C0CO0C7 
Z2z<< 4 VIMMMA 

-—Oo VUsMm 2 

mmm -o 


AX-11 Bliss-32 V4.0-7 
DEBUG. SRC DBGNPARSE. B3 31 
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eee gl GET pag 


ND 
DBGSGET_TEMPMEM 
OESNPARSE ALLOCATE 
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M12 | 
GNPARSE 16-Sep-1984 01:47:1 AX-11 Bliss-32 V4.0-74 Page 14 
yOe~000 1 =300 71382 9 : pig DEBUG. SRC IDBGNPARSE .B3 31 9 ay 
-EXTRN DBGSSCR_PARSE SELECT_CMD 
SEXTRN DBGSSTA-SETCORTEXT 
«EXTRN DBGSGL_BEVELOPER 
SEXTRN DBGSGL~EDIT ENABLED 
-EXTRN DBGSGB-RADIR, DBGSGB_EXC_BRE_FLAG 
-EXTRN DBG$GB_LANGUAGE 
-EXTRN DBGSGL~SCREEN_NOGO 
N DBG$GB-VERB 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 | 
O1FC 900 «ENTRY DBGSNPARSE_CMD, Save R2,R3,R4,R5,R6,R7.R8  ; 0295. 
58 000000006 00 9€ 000 MOVAB DBGS$GL_SCREEN_NOGO, R8 F | 
(OOO BOON Cr OF OOby ROVAR  BRGSONGNCH? Ro aa 
§ 90000090" FF 9E $615 MOVAB Dees se ALLOCATE, RS : | 
4 000000006 00 3 sabes NOVAB p GSGB-VERB, R4 oad! 
000000006 09 01 FB $60 CALLS #1, DBGSGET_TEMPMEM : 
5 20 dO 0002¢ MOVL RO. VERB_N ; | 
08 ac 53 D0 90 f MOVL  VERB_NODE, @VERB_NODE_PTR + 0384 
AERP HES Vel BBE 
000000006 00 01 FB 00037 CALLS #1, DBGSSTA_SETCONTEXT : 
a ae 038 
52 04 AC D0 90042 MOVE INPUT_DESC, R2 : 
Be 8g FB 00048 CALLS #3, DBGSNMATCH : 
‘ 2 ge geen ee 
63 16 90 90050 MOVB 422, (VERB_NODE) : 0401, 
64 16 90 0005 MOVB #22. DBGS$GB_VERB : 0402 | 
0c AC DD 00056 PUSHL MESSAGE VECT + 040 
0¢ BB 00059 PUSHR  #*"M<R2_R3> : | 
000000006 00 03 FB 90058 CALLS #3, DBGSNPARSE_ALLOCATE ; | 
01 OD ooves 18: PUSHL at + 0406 | 
09 s o0088 ‘ PUSHAB DBGSCS_AT_SIGN 2 | 
66 8 PR books CALLS #3, DBGSNMATCH : | 
01 50 D1 O06 CMPL sO, #1 : 
14 12 00 BNEG 2 : | 
63 01 3 9075 MOVB #1, (VERB_NODE) : 0408 
64 1 7% MOVB #1. DBG$GB_VERB > 0409 | 
oc ac pp 0079 PUSHL MESSAGE _VECT : 0410, 
8 8 07C PUSHR #*M<R > 3 
000000006 00 Fe 007 CALLS #3, DBGSNPARSE_AT_SIGN ; | 
88 oD 2s + : 0413 
0B AS OF oe: PUSHAB DBGSCS_ATTACH ; | 
52 OD C PUSHL ne : | 
66 Q FS F CALLS #3, DEGSNMATCH : 
1 b CMPL =O, ; 
63 iA $6 36 Rove ; 6, (VERB_NODE) : 0415 
64 1A 9 0098 MOVB #56. DBGSGB_VERB : 0416 
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DBGNPARSE 16-Sep-1984 01:47:1 AX-11 Bliss-32 V4.0-74 
y0e~000 1 ~3007}38t On: 40: 18 DEBUG. SRC JDBGNPARSE .B3 31 
0c AC dD 0009¢ PUSHL MESSAGE yECT 
8 BB OF PUSHR #*M<R2,R5> 
000000006 00 FB QO0Al CALLS #3, DBGSNPARSE_ATTACH 
: 11 OOOA8 3S: BRB 9 
po OAA 4$: PUSHL # 
12 AS SF OOOAC PUSHAB DBGSCS_CALL 
5 0D OAF PUSHL R 
66 FB 0B CALLS #3, DBGSNMATCH 
01 D1 000B4 CMPL =sRO. #1 
12 00087 BNEC =-&$ 
63 90 00089 MOVB ae. (VERB_NODE) 
64 0 9 ooae MOVB #2. DBGS$GB_VERB 
9 900900006 E BF BLBC  § DBG$GB_EXC“BRE_FLAG, 5$ 
00028E 8F DD 000C6 PUSHL #1674 
67 01 FB 000CC CALLS #1, LIBSSIGNAL 
09 68 £9 O00¢F 5$: LBC pacsc. SCREEN_NOGO, 6$ 
0002836A 8F ODD 9008 PUSHL #16471 
7 01 FB 000D CALLS #1, LIBSSIGNAL 
0c AC DD 00008 6$ PUSHL MESSAGE_VECT 
O¢ BB 000 PUSHR #*M<R2,R3> 
000000006 00 03 FB OO0E CALLS #3, DBGSNPARSE_CALL 
67 11 OOOE7 7S: BRB 12$ 
03 DD OO0E9 8$: PUSHL # 
17 AS 9F 000EB PUSHAB DBGSCS_CANCEL 
3 DD OOOEE PUSHL R 
66 03 FB OO0FO CALLS #3, DBGSNMATCH 
01 50 D1 000F CMPL =sRO, #1 
14 12 0006 BNEQ 19 
63 03 90 000F8 MOVB #3, (VERB_NODE) 
64 03 90 000FB MOVB #3, DBGS$GB_VERB 
0c AC DD OOOFE PUSHL MESSAGE VECT 
oc BB Bai gs PUSHR #*M<R > 
000000006 00 03 FB 00103 CALLS #3, DBGSNPARSE_CANCEL 
67 11 O010A 9 BRB 14$ 
03 DD 0019¢ 10$ PUSHL #3 
1E AS 9F 0010E PUSHAB DBGSCS_DECLARE 
5 DD 00111 PUSHL 
66 03 FB g113 CALLS #3, DBGSNMATCH 
01 50 D1 00116 CMPL =e RO, #1 
14 fs g119 BNEG 11% 
63 14 90 00118 MOVB 420, (VERB_NODE) 
64 14 90 OOr1E MOVB #20. DBG$GB_VERB 
0c AC DD 001 PUSHL MESSAGE VECT 
0 BB 1 4 PUSHR #*M<R2.R3> 
000000006 00 FB 00126 CALLS #3, DBGSNPARSE_DECLARE 
67 11 1 D BRB \98 
03 po 12F 11% PUSHL # 
26 «AS «OF 00131 PUSHAB DBGSCS_DEF INE 
52 DD 001 PUSHL R 
66 0 FB 1 CALLS #3, DBGSNMATCH 
01 D1 00139 CMPL = RO, #1 
14 if 13¢ BNEQ si 
63 04 90 001 f MOVB #4, (VERB_NODE) 
64 4 90 0014 MOVB #4. DBG$GB VERB 
OC AC DD 00144 PUSHL MESSAGE _VECT 
of 6B Bite PUSHR #*M<R > 
000000006 00 FB 00149 CALLS #3, DBGSNPARSE_DEF INE 
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DBGNPARSE 1b-se =1984 01:47:1 AX-11 Bliss-32 V4.0-74 
yee 000 12-808-1 382 94:95:18 DEBUG. SRC IDBGNPARSE .B3 31 
44 11 00150 128: RB 16$ 
a3 pp a182 188: UeHL oS 
20 AS OF 001 PUSHAB DBGSCS_DELETE 
DD 00157 USHL R 
ah Fe 159 CALLS #3, DRGSNMATCH 
01 D1 0015¢ CMPL RO r) 
14 fs 15F BNEG  15§ 
63 30 90 00141 MOVB #32, (VERB_NODE) 
64 90 00164 MOVB #32. DBG$GB_VERB 
0c AC DD 00167 PUSHL MESSAGE_VECT 
0 BB OO16A PUSHR #*M<R2,R5> 
000000006 00 0 FB O16 CALLS #3, DBGSNPARSE_DELETE 
69 1 173 14$: BRB 19$ 
01 0D 0017 15$: PUSHL #1 
34 AS OF 0017 PUSHAB DBGSCS_DEPOSIT 
3¢ DD O017A PUSHL 
66 g FB 0017C CALLS #3, DBGSNMATCH 
01 0 p1 017 CMPL SRO. #1 
14 12 00182 BNEQ = 
63 05 90 00184 MOVB #5, (VERB_NODE) 
64 05 90 00187 MOVB #5, DBG$GB_VERB 
Oc AC DD 0018A PUSHL MESSAGE _VECT 
og BB 0018D PUSHR A“M<R2,R3> 
000000006 00 : FB 0018F CALLS #3, DBGSNPARSE_DEPOSIT 
B 11 00196 16$:  ®8RB 24$ 
03 DD 00198 17$:  PUSHL #3 
3c «= A5sOOF «O019A PUSHAB DBGS$CS_DISPLAY 
32 DD 0019D PUSHL 
rx. 03 FB 0019F CALLS #3, DBGSNMATCH 
01 50 1 O01A2 CMPL sO. #1 
16 12 OO1A BNEQG 188 
63 1¢ 90 001A7 MOVB cB, (VERB_NODE) 
64 1¢ 90 OO1AA MOVB #28, DBG$GB_VERB 
53 DD O01AD PUSHL VERB_NODE 
7E 04 OO1AF CLRL. -(SPY 
3¢ DD 00181 PUSHL R 
000000006 00 : FB 00185 CALLS #3, DBGSSCR_PARSE_DISPLAY_CMD 
0354 31 OO1BA BRW 64$ 
i DD 001BD 18%: PUSHL #2 
44 AS OF OO1BF PUSHAB DBGSCS_DUMP 
32 DD 001C2 PUSHL 
66 03 FB 001C4 CALLS #3, DBGSNMATCH 
01 50 b1 001C7 CMPL 
14 J OiCA BNEQ $ 
63 1B 90 001CC MOVB #27, (VERB_NODE) 
64 1B 90 OO1CF MOVB #27. DBG$GB_VERB 
0c aC DD O10 PUSHL MESSAGE _VECT 
¢ BB 001D PUSHR  #*M<R2,R3> 
000000006 00 Fe 1D CALLS 43 DBGSNPARSE_DUMP 
9 1 1DE 19$: BRB § 
7 900000006 0 €8 OIE 20$:  BLBS DBGSGL_EDIT_ENABLED, 218 
C 000000006 E9 OO1E BLBC  DBGSGL-DEVECOPER, 228 
DD OIE 21$ PUSHL # 
49 AS OF OOTF PUSHAB DBGSCS_EDIT 
3¢ DD OO1F PUSHL R 
Ab 0 Fe 1F CALLS #3, DBGSNMATCH 
ie 18 BRB 23$ 


ee Se Se Se Se Se Se Ge Fe Ge Se Se Se Be Se Se Se Se Se Ge Be 


DBGNPARSE 
v04-000 


000000006 


000000006 


000000006 


000000006 


000000006 


oc 


4E 


oc 


57 


oc 


5F 


oc 


64 


NOOP 2 SUIOM FP ONOOF OO MOM FP OAOO YF OOO FP OMOO FOO MOM FP ODOO SNM 
WO OWA OAM MMI. O OB EF OWINM VWI NII OO NIN FOUN NAN OPA SONU NWO HS FOO 


"D0 009 M9 09 - "DT 00-9 19 09 - "DO 00-9 79 OO - "T9009 M9 OO - "D0 00—-079 
—DWO OO -@9 "9 - DDO COON -- D9 "9 - BWI CON) - DO "9 - TDWI COON WI "9 -DWII Con & 
OOOCOOCOCoOOCOOCOoOoOoOoOoOOSCOCOOOSCOOOOOOCOOCOCSOSOOSOOOCO OOOO OOOOO OOOO OOOOOOO 


SOOGOOOCOCOOCOOSOOOSOOSOSOSOSSSOSOSSOOSOSOCOSOSOSOSOSOSOSOOSOOOOOO OOOO OOOOOOOOOoOOO 


POPITOPOPOPIPINIPININPIPIPOPIPUNPIPUPIPUNPIPIPIPINPIPIPINININPINPINININPININN 


SOD .0909 09 09 09 09 ddd Wd OP OP OP OP OP OP I Be > Be Be Be NEM ENPOMOMOMOROAD 2 ed tS DODEDEODED FF 
LSSLSSSEER 


Fon 


$¢$: CLRL 


ror 


we 
PAM 
xz 


268: PUSHL 


278: BRB 
28$: PUSHL 


wn 
Oo 
wn 
@ 
oa 


MOMONANOS F&F OVNI BD OVO PF NVM POA MNS SP NLM MOF NVWO SNL 2OP> 

oO 

wr 

wv oO 
cw > 
” a 
= cr 
- “ 


et 
we 
@ 
@ 


13 
Sep-19be tai? 


§ AX-11 Ol igeaze V4.0-74 
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#1 
‘ (VERB_NODE) 
DBGSGB_VERB 
ESSAGE_VECT 
M<R2,R3> 

#3, DBGSNPARSE_EDIT 
29§ 


& 
DBGSCS_EVALUATE 
#3, DBGSNMATCH 
RO, #1 


26 

#6, (VERB_NODE) 
#6, DBG$GB_VERB 
MESSAGE _VECT 
#*M<R2,R3> 

i, DBGSNPARSE_EVALUATE 


#1 
DBGSCS_EXAMINE 
#3, DBGSNMATCH 
RO, #1 


28 

#7, (VERB_NODE) 
#7, DBG$GB_VERB 
MESSAGE_VECT 
#*M<R2,R3> 

3, DBGSNPARSE _EXAMINE 


#3 
DBGSCS_EXIT 
#3, DBGSNMATCH 


#8, (VERB_NODE) 
#8, DBGS$GB_VERB 
MESSAGE _VECT 
#*M<R2,R5> 

, DBGSNPARSE_EXIT 
y 
nanan 


R 
#3, DBGSNMATCH 
#1 


#19, (VERB_NODE) 
#19. DBGSGB VERB 
MESSAGE _VECT 

#*°M<R2,R3> 

a, DBGSNPARSE_EX1TLOOP 
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DBGNPARSE 16-Sep-1984 01:47:1 AX-11 Bliss-32 V4.0-7 
v04-000 14- at 595318 DEBUG. SRC CibBcaPARse 68 B32;1 
01 po al 32$: PUSHL #1 
6D AS 9F OO2A PUSHAB DBGSCS_FOR 
DD Me PUSHL ; 
66 FB OO2A CALLS #3, DBGSNMATCH 
01 D1 002AB cHPL 
14 1 A BNE ay 
63 19 9 B MOVB #25, (VERB_NODE) 
64 19 9 0 B MOVB 3s #25. DBGSGB VERB 
OC AC ODD Bs PUSHL nes sa 
BB 0 B PUSHR 
000000006 00 FB B CALLS 3. <DOESNPARSE _FOR 
1 0 C 333: RB 40$ 
01 DD 002C4 34$:  PUSHL #1 
71 «AS OF 0 C6 PUSHAS DBGSCS_GO 
52 DD 002¢ PUSHL R 
66 0 FB CB CALLS #3, DBGSNMATCH 
01 50 0 CE CMPL #1 
20 \2 01 BNEQ 
63 9 90 00203 MOVB #9. (VERB NODE) 
64 09 90 00206 MOVB #9. DBG$GB_VERB 
09 68 €9 00209 BLBC pads 6ScL SCREEN _NOGO, 35$ 
0002836A 8F DD 00 D PUSHL 
67 01 FB O02E CALLS L1BSS1GNAL 
OC AC DD OOZES 35$: — PUSHL ant yECT 
OC 8B 002E8 PUSHR 1 
000000006 00 03 FB OOZEA CALLS 3. DBGSNPARSE 60 
67 11 OO2F1 36$: BRB 42$ 
01 od 00 r3 37$: PUSHL rt 
74 AS OF OOF PUSHAB DBGSCS_HELP 
32 DD 00 FB PUSHL 
66 03 FB OO2FA CALLS , DBGSNMATCH 
01 50 01 90 FD CMPL m0, #1 
14 12 00300 BNEQ 
63 0D 90 0030 MOVB i. (VERB NODE) 
64 0D 90 O30 MOVB pecs $68 VERB 
Oc AC OD 99 PUSHL MES SSA ECT 
0¢ BB 0030B PUSHR a 
000000006 00 03 FB 0300 CALLS +3. DEGSNPARSE HELP 
44 11 00314 38%: BRB 428 
01 DD 0316 9$: PUSHL #1 
79 AS OF 0031 PUSHAB DBGSCS_IF 
3¢ DD 0031B PUSHL 
66 ! FB 00310 CALLS #3, DBGSNMATCH 
01 0 D1 CMPL =sRO,. #1 
14 ; BNEG 4 
63 19 9 MOVB #6, (VERB_NODE) 
64 10 90 00328 MOVB DBGScB VERB 
OC AC DD 00328 PUSHL RESéA ECT 
c BB 00 PUSHR 
000000006 00 FB 0 CALLS RR I ce IF 
ee 40$: 6RB ( $ 
po 9 41$:  PUSHL 
7c «6AS OOF 8 PUSHAB 4 GSCS_REPEAT 
DD PUSHL 
66 FB 4 CALLS #3, DBGSNMATCH 
01 p 0 4 CMPL sO. #1 
14 12 00346 BNEQ 43$ 
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13 
DBGNPARSE 1h-Sep-19 1:467:1 AX-11 Bliss-32 V4.0-74 
yOe~000 12-80 8- 13h 93: 953) DEBUG. SRC JDBGNPARSE .B32;1 
63 1 48 MOVB #18, (VERB_NODE) 
64 13 38 48 MOVB +18 DBGS$GB_ VERB 
OC AC DD 0034 PUSHL MESSAGE VECT 
of 6B PUSHR #*M<R > 
000000006 00 Fe CALLS #3, DBGSNPARSE_REPEAT 
64 1 A 438 BRB 468 
3 po C 43$ PUSHL # 
0083 ¢ F 5 PUSHAB DBGSCS_SAVE 
DD 0036 PUSHL 
66 : FB 00364 CALLS #3, DAGSNMATCH 
01 D1 00367 CMPL 0; #i 
11 if} 0 6A BNEQ 44$ 
63 1F 9 6C MOVB a3, (VERB_NODE) 
64 1F 90 00 of MOVE #31, DBG$GB_VERB 
O¢ BB 90372 PUSHR #*M<R2,R3> 
000000006 00 FB 00374 CALLS #2, DBGSSCR_PARSE_SAVE_CMD 
64 11 00378 BRB 48$ 
3 DD 0037D 44$:  PUSHL # 
0088 c3 9F 0037F PUSHAB DBGSCS_SCROLL 
DD 00383 PUSHL 
66 p FB 00 85 CALLS #3, DBGSNMATCH 
01 D1 00388 CMPL =sRO. #1 
11 if 00 8B BNEG 4 
63 1D 90 00380 MOVB #29, (VERB_NODE) 
64 1D 90 00390 MOVB #29, DBG$GB_VERB 
OC 6B 00393 PUSHR #*M<R2,R35> ; 
000000006 00 0¢ FB 00395 CALLS # DBGSSCR_PARSE_SCROLL_CMD 
43 11 0039C BRB 48$ 
03 DD 00395 45$:  PUSHL #3 
008F C5 9F O03A0 PUSHAB DBGSCS_SEARCH 
32 DD 003A4 PUSHL R 
66 03 FB 0036 CALLS #3, DBGSNMATCH 
01 50 D1 0039 CMPL sO. #1 
14 12 OO3AC BNEQ 4 
63 OF 9 OOSAE MOVB #15, (VERB_NODE) 
64 OF 90 00381 MOVB #15. DBG$GB_VERB 
0c AC DD 003B4 PUSHL MESSAGE VECT 
O¢ BB 0387 PUSHR #°M<R2,R3> 
000000006 00 03 FB 00389 CALLS #3, DBGSNPARSE_SEARCH 
68 11 003CO 46$: BRB 51$ 
03 DD 003C2 47$:  PUSHL #3 
0096 c3 OF 003C4 PUSHAB DBGSCS_SELECT 
DD 003¢8 PUSHL 
6 ° FB CA CALLS 43, DEGSNAATCH 
1 D CD CMPL =O. 
12 fs D BNEQ 49$ 
63 1E 9 D MOVB #30, (VERB_NODE) 
64 1E 90 0030 MOVB #30, DBG$GB_VERB 
§ BB D PUSHR #*MA<R2,R5> 
000000006 00 FB OO3DA CALLS #2 DBGSSCR_PARSE_SELECT_CMD 
0120 31 00361 48%:  BRW 64§ 
po £4 49$:  PUSHL #2 
009D F 003E6 PUSHAB DBGSCS_SET 
DD OO3EA PUSHL R 
66 re EC CALLS #3, DBGSNMATCH 
01 0 bi OO3EF CMPL =O. 
14 12 003F2 BNEG 50$ 
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DBGNPARSE 
vOs~000 


000000006 


000000006 


000000006 


000000006 


000000006 


63 

64 
oc 

00 
00A1 

66 

01 

63 

64 
oc 

00 
00A6 

66 

01 

63 

64 
oc 

00 
OOAC 

66 

01 

63 

64 

09 
0002836A 

67 
oc 

00 
0081 

66 

01 

63 

64 
oc 

00 
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53$: PUSHL 


—"D90 009 79 09 - "99 MOM OO 9 19 OO - "D9 OO 9 790 OO S$ "90 00—-o "0 0C0- "WOOO 
SI NA A AAA MMII 
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RESES 
vv 
cc 
nm 
z= 
ze 


1 AX-11 


8 Seeze V4.0-74 
1 DEBUG.S 

D 

E 


DBGNPARSE .B32;1 


#10, (VERB_NO 
#10. DBGS$GB_V 
MESSAGE_VECT 
#AM<R2,R3> 
3, DBGSNPARSE_SET 


li 
RC 
E) 
RB 


rain 

° DEGSNMATCH 

#11, (VERB_NODE) 

#11, DBG$GB_VERB 
age ECT 


<R2,R5> 
#3 DBGSNPARSE_ SHOW 
57$ 


#2 
DBGSCS_SPAWN 
#3, DBGSNMATCH 
RO, #1 


DBGSGB_VERB 
ME SSA E VECT 


»R3> 
#3, DBGSNPARSE_SPAWN 
59$ 


#1 
eas 


#3, DBGSNMATCH 
RO, #1 


53§ 
a2, (VERB_NODE) 
#21 

< 


56 
wig. (VERB_NODE) 

#12, DBG$GB _VERB 

pact L_SCREEN_NOGO, 54$ 
#1, LIBSSIGNAL 

MESSAGE _VECT 

#*M<R2,R3> 

#3, DBGSNPARSE_STEP 

ois 

penn: 

#3, DBGSNMATCH 

R al 

i (VERB_NODE) 

#23. DBGS$GB VERB 

MESSAGE VECT 

#°M<R2,R3> 

H, DBGSNPARSE_SYMBOL I ZE 


oes aie 
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605 
60 
0607 


0610 


DBGNPARSE £2 “Be0c}984 OU:47:1B YARN BLing=32 v4 0-762 


01 po 4A6 58$: PUSHL #1 
0088 F 004GA6 PUSHAB DBGSCS_TYPE 
DD OO4AA PUSHL P 
‘, FB O04AC CALLS » DBGSNMATCH 
1 D1 OO4AF CMPL nO 
14 12 00482 BNEG 608 
4% OE 3 484 MOVB #14, (VERB NODE) 
64 E 487 MOVB = #14 DBGSCB VERB 
OC AC DD O04BA PUSHL MESSA AGE 
O¢ BB 0048D PUSHR  #*M< 
000000006 00 Fe O4BF CALLS "3 cng ce vee 
se ds Shece Sos: BRR, HS 
00c0 c3 OF OO4CA PUSHAB DBGSCS_UNDEF INE 
é DD 004¢ PUSHL R 
66 03 FB O40 CALLS #3, DBGSNMATCH 
01 50 01 0040 CMPL #1 
14 if 0406 BNEG 6 
63 18 9 9040 MOVB #24, (VERB_NODE) 
64 18 90 00408 MOVB #24 DBGSCE VERB 
0c ac DD QO4DE PUSHL MESSA ECT 
0¢ BB 00461 PUSHR M<R 
000000006 00 03 FB 004E3 CALLS 53 na RSS _UNDEF INE 
Pune or ee SF 
00c9 «CSF OO4EE PUSHAB DBGSCS_WHILE 
32 DD O04F PUSHL 
66 03 FB 004F4 CALLS #3, DBGSNMATCH 
01 50 D1 004F7 CMPL = RO. #1 
2B 12 OO4FA BNEQ 66 
63 11 90 004FC MOVB #17, (VERB_NODE) 
64 11 90 OO4FF MOVB #17 pecsee,, VERB 
0c AC OD 90508 PUSHL MESSA 
0¢ BB 0050 PUSHR 
000000006 00 0 FB 00507 CALLS a3, “DagSNPARsE_ WHILE 
- a) iy Baath git: RS, S 
OE ee 0513 BEQL 58$ 
01 od 0515 PUSHL #1 
OOcF c3 9F 0051 PUSHAB DBGSCS_CR 
: DD 0051B PUSHL R 
66 03 FB 0051D CALLS #3, DBGSNMATCH 
04 50 €9 005 9 BLBC RO. 66$ 
50 01 Bd 09 65$: MOVL #1, RO 
4 g RET 
52 DD 00527 66$ PUSHL R2 
0000v CF Q FB 09 9 CALLS #1, DBGSNNEXT_WORD 
0 pd 005 PUSHL RO” 
000000006 00 Q1 FB 00 CALLS #1, DBGSNSYNTAX_ERROR 
0c 0 pO 00 MOVL RO, @MESSAGE_VECT 
04 v0 0 B 67%: MOVL #4, RO 


; Routine Size: 1343 bytes, Routine Base: DBGSCODE + 0000 
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DBGNPARSE 16-Sep-1984 01:47:1 AX-11 Bliss-32 V4.0-74 Page 22 
voe~000 122885-19 4 933455] DEBUG. SRC DaGNPARSE .035;1 (4) 
GLOBAL ROUTINE DBGSNMATCH (STRING_DESC, COUNTED_STRING, UNIQUE_CHARS) = 


ISIS 


; 561 691 1 

; 036 ,} 

3 695 1 ! FUNCTION 

; 564 6946 1! This routine is used extensively during command parsing. What it does is 
; 565 695 1! to compare ed first word of the command input string Speinas the supplied 
; + oe 1! counted string to see if they match. If they do, the matched word is removed 
3; + 697 1! from the head of the command input string and success is returned as the value 
; 568 O38 1! of the routine. Note that the input word may be shorter than the counted 
3 370 $28 : string to allow for abbreviations of commands. 

; f} 8 : FORMAL PARAMETERS: 

3 78 708 : } STRING_DESC - VAX standard string descriptor of the input command. 

3 3h $708 1! COUNTED_STRING = The counted string against which the input word is 

3 278 8788 : to be compared. 

; 578 0708 1! UNIQUE _CHARS - The number of characters which the input word must 

3 Or 0709 1! match against the counted string for purposes of 

3 280 pry ' } disambiguating the input word. 

; 266 Orie 1 ! IMPLICIT INPUTS: 

; 58 07135 1! 

; 584 0714 1! NONE 

3 389 0715 1! 

; 286 0716 1°! IMPLICIT OUTPUTS: 

; 58 0717 1! 

; 588 0718 1! NONE 

; 589 0719 1! 

; 590 b75¢ 1 ! ROUTINE VALUE: 

3s 391 0721 1! 

; 236 07 ¢ 1! Unsigned integer longword. 

; 07 1 ! 

; ape 4 : : } COMPLETION CODES: 

3 4] 44 $ ; STSSK_SEVERE (4) = The input word did not match the counted string. 

; 598 $756 1! STSSK_SUCCESS (1) = The input word did match. 

; 599 0729 1! 

; 600 0730 1 ! SIDE EFFECTS: 

; 601 0731 1! 

; 602 O36 1! On a successful match, the input string descriptor is updated to just beyond 
; 603 07 &. the word of input matched against the counted string. 

; 604 of 4 1! 

; 605 +) i 

; 606 of $ BEGIN 

; 607 7 

; 608 0738 MAP 

; 609 of 9 STRING_DESC : REF DBGS$STG pest 

; 610 740 COUNTED_STRING: REF VECTORL BYTE); 

; 6611 0741 

: ols 46 LOCAL 

3; 61 74 WORD_STRING: REF VECTORC,BYTEJ, ! Holds the next input word 

; 614 744 SAVE _PTR, ' Saves the address of the input buffer 
3; 615 745 SAVE LEN ' Saves the length of the input buffer 

: 616 0746 MATCR_FLAG; i Signals a match 


13 
1h-$20-1986 01:47:1 AX-11 Bliss-32 v4.0-74 Page 23 
1enee-13ke 83:75:19 == kauG. Sac daBGuPARse 039; 1 | 9 a) 


NOUS WN HO 


Get the next input word 


Lets 
WHILE s{ LEC -WORD_STRING [0] DO 
and lahat C.1] NEQ .COUNTED_STRING C(.1) 


$ 74 

§ v8 

3 : ? Save the original descriptor buffer address and length 

3 7 § SAVE PTR = .STRING_DESC COSCSA_POINTER); 

3 4 Z SAVE_LEN = .STRING_DESC COSCSW_LENGTH); 

: gf 5 

3 7 § 

: 628 $78 WORD_STRING = DBGSNNEXT_WORD (.STRING_DESC); 
9 759 

3 0 ets 

3 1 ooe4 Perform the match, check for special cases 

3 5 $788 hat CH_FLAG = TRUE; 

: < 0764 SELECTONE TRUE OF 

3 5 0765 

3 9768 

: 076 

3 0768 ' Match 

; 9769 ' 

; 0770 C.COUNTED_STRING (OJ EQL 0): 

: 0771 0; 

3 14a 

; 077 

: 44 Bote ; No match 

; 646 0776 {.WORD_STRING [OJ GTR -COUNTED_STRING (0]]: 

; 0777 MATCH H_FLAG = FALSE; 

3 64 0778 

3; 649 0779 

; 650 0780 !' No match 

3; 651 0781 i 

$ 628 b78¢ {.WORD_STRING CO] EQL 0): 

s 63 78 MATCH FLAG = FALSE; 

3 654 0784 

3 655 0785 

; 656 3758 ' No match 

3; 657 787 

; 658 0788 i. WORD_STRING CO] LSS .UNIQUE_CHARS): 

; 659 0789 MATCH_FLAG = FALSE; 

; 660 790 

3; 661 791 

3 666 a4 ' Normal match 

3; 66 79 ! 

3: 664 794 COTHERWISE): 

3; 665 ak BEGIN 

Be, +99 LOCAL 

: 668 798 5 ! Loop counter 

5 9 7 

3 4 

8 4 

3 4 


AAAS 
AARP S 
wn-oO 
oOoooo 
C2 G0 0000 
Fun 3 


13 
begun nase 18- -$ep-1984 # 91:6 
v04-000 14-Sep-1984 12:1 
675 5 4 MATCH_FLAG = FALSE; 
ore 4 re 
ore 3 Be. 
He % "0; 
681 11 
ei i sa 
684 0814 
685 OB13 ! Return successfully if we found a match. 
oe bai$ descriptor and return failure to find a matc 
688 pais it -MATCH PLAS. iuen RETURN STS$K SUCCESS; 
689 819 STRING_ DESC A_POINTER] = .SAVE_PTR; 
690 $e 0 STRING_DESC tit LENGTH] = .SAVE CEN; 
691 821 RETURN’ STS$K_SEVERE; 
69 08 ¢ 
69 08 1 END; 
003C 00000 ENTRY 
52 04 AC 00 00002 MOVL 
55 04 As be 00006 MOVL 
54 6 C QO00A MOVZWL 
52 DD 0000D PUSHL 
0000v CF 01 4 0000F CALLS 
53 01 DO 00014 MOVL 
08 BC 95 00017 TSTB 
2E 13 OOO1A BEQL 
08 BC 60 91 0001C CMPB 
OC 1A C4 BGTRU 
60 95 00022 TSTB 
08 13 00024 BEQL 
Oc AC 60 08 0 £e 308 6 CMPZV 
4 18 0002C BGEQ 
3 D4 000 F 1$: CLRL 
18 11 000 BRB 
51 01 dO 000 ¢ $: MOVL 
51 60 08 00 58 00 $: CMPZV 
oF 9 8 A BLSS 
08 BC41 6140 91 C CMPB 
9¢ 13 ORee BEQL 
31 be 00066 4S: INCE 
8 06 apes BRB 
04 E9 4A 5$: BLBC 
50 1 be onee MOVL 
4 One RET 
04 «OA 5 pO 8 1 6$ MOVL 
g 4 B60 38 3 MOVW 
4 ? MOVL 
4 00058 RET 


O18 AX-11 et Segenze v4.0 


DEBUG. SRC JDBGNPARSE. 83 31 


aia restore the old 


sippewtiy Save R2,R3,R4,R5 
ray ey ~ R2 
4(R2) atts “PTR 
(Re) . SAVE_CEN 
#1, Se rag he WORD 
1, MATCH_FLA 
acOUNTED_ MeTRING 
SYORD_ STRING), @COUNTED_STRING 
syORh,_SERINGD 
#0, #8, (WORD_STRING), UNIQUE_CHARS 


MATCH_FLAG 
5$ 


“1, I 

#0. #8, (WORD_STRING), I 
(1)CWORD_STRING], @COUNTED_STRINGCIJ 
MATCH_FLAG 


$ 
MATCH FLAG, 6$ 
#1, RO 


SAVE _PTR, 


4(R2) 
paves Aen | R2) 


Page 24 
. (4) 
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GNPARSE 
vOs=000 


; Routine Size: 


92 bytes, 


Routine Base: 


DBGSCODE + 0535F 


1340-198 


4 
4 


12: 


24 
21 


21 pare, Ui s-32 v4. 
21 DEBUG. SRC DBGNPARS 


7633.1 


rome 
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DBGNPARSE 1b-Sep-1986 01:47:1 AX-11 Bliss-32 v4.0-74 ° 6 
yOe~000 eae ra PAR SL rT a aoe $6 


; $9? ¢ ! GLOBAL ROUTINE DBGSNNEXT_WORD (STRING_DESC) = 

; £38 § 1 ! FUNCTION 

; 698 1! Routine DBGSNNEXT_WORD isolates the next word of the input command. A word 
; $%? 3 7 3 s defined to be fy number of alphabetic characters delimited by blanks 
; 700 1! or a single non-alphabetic character. The word isolated is represented as 
; 3 ? ! } a@ counted string. 

3 Ak 4 § ! The input string is assumed to be terminated by a <cr>. 

; 705 834 1! Maximum word size is 80 characters. 

3 16 835 1! 

5 ada os $ : FORMAL PARAMETERS: 

; Ae 0838 } STRING_DESC - VAX standard string descriptor of the input command. 
3; 711 $820 1 ! IMPLICIT INPUTS: 

3 rg 0841 1! ? 

3 at Oace : WORD _BUF - OWNed byte vector to contain the word of input. 

s 715 0844 1 ! IMPLICIT OUTPUTS: 

; 716 0845 17! 

: wer 0846 1! NONE 

; 718 0847 1! 

3; 719 0848 1 ! ROUTINE VALUE: 

s 20 0849 1! : 

3 fer 0850 1! The address of WORD_BUF, the counted string representing the next word 
: 722 0851 1! of input. 

3; es pe3¢ sg. 

3; 724 0855 1 ! COMPLETION CODES: 

s 2 0854 1! 

3 ese 0855 1! NONE 

; 7e7 0828 1! 

3; 728 0857 1 ! SIDE EFFECTS: 

; C44 0858 1! 

3 0 0859 1! WORD_BUF is always filled with the next word of input. WORD_BUF(O) 

3 fi 0860 1! contains the count of the characters in the word. On exhausted input, 
3 rag 0861 1! WORD_BUFCO] equals 0. The command string descriptor is updated past 

; 73 0862 1! the word of input. 

; 734 0863 1! 

; 735 0864 1 

3; 736 0865 BEGIN 

3 737 pae8 

s 733 p86 MAP : 

; 494 tye4 STRING_DESC : REF DBG$STG_DESC; ! Input string descriptor 

3 (741 0870 LOCAL 

: rg 0871 CHAR : BYTE, ' Holds next character of input 

3; 74 1h POINTER, ' Temp pointer 

3 6746 7 COUNT; ' Count of characters 

; 745 74 

; 7% 75 

3; 74 o76 ’ 

; oe ths Check for exhausted input 

; 750 + t44 If .STRING_DESC COSCS$W_LENGTH) LEQ 0 

3 751 0880 THEN 


233235 
ODONOUS WI 


oovonono 


VFwnN— 
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16-Sep-1984 01:4 
1o28eb= 13k 2:1 
BEGIN 
STRING Ese CoS¢$u_LENGTH] = 0; 
WORD BOF z 0: ! No word 
STRING_DESC costéa POINTER] = 0; 
BET URN WORD_BuF (OJ; 


Ignore leading white space 


DBGNPARSE .832;1 


WHILE ee (.STRING_DESC CDSCSA_POINTER]) EQL * * DO 


STRING_DESC [DSCSA_POINTER] = CHSPLUS (.STRING_DESC CDS 
STRING_DESC CDSCSWLLENGTH] = .STRING_DESC CDOSCSW_LENGTH 


END; 
' Count the number of characters in the next word. 
return at least one character. 
POINTER = .STRING_DESC CDSCSA_POINTE 
CHAR = CHSRCHAR (.STRING_DESC CDSCSA 
ae GEQ ‘A’ AND .CRAR LEQ '2Z') 


N 
BEGIN 


RI; 
POINTER); 


We take more than one char 
CHAR = CHSA_RCHAR (STRING_DESC [CDSC$A_POINT 
STRING_DESC CDSCS$W LENGTH] = .STRING_BESC 


C 
WHILE T(.CHAR GEQ *A* AND .CHAR LEQ °2') OR 
CHSDIFF (.STRING_DESC COSCSA_POINTER] 


BEGIN 
CHAR = CHSA_RCHAR (STRING_DESC CDSCS$A_POINTE 
STRING DESC CDSCSW_LENGTH] = .STRING_BESC CD 


Take one character only. 


ELSE 
BEGIN 
CHAR = CHSA_RCHAR (STRING_DESC CDSCSA_POINTER)); 
STRING _ESC COSCSW_LENGTH] = .STRING_BESC CDSC 


Calculate the number of characters in the new word 


$A_POINTER], 1); 


Note that we always 


W_LENGTH) = 1; 


); 
$U_LENGTH) - 1; 


COUNT = CHSDIFF (.STRING_DESC CDOSCSA_POINTER], .POINTER); 


! Now copy over th appropriate number of chars. 


N13 | 
GNPARSE 16-Sep-1984 01:47:1 AX-11 Bliss-32 V4.0-74 Page 28 
yOe~000 at aet 1 yi95318 YOBUG. SRCISBGNPARSE 03951 . (3 
: 809 938 
: 810 939 WORD_BUF [0] = .COUNT; 
; 1 340 CHSMOVE (.COUNT, .POINTER, WORD BUF [1}); 
; ig ae 
3 12 Biz } Check for exhausted input 
; B16 945 if .STRING_DESC CDSC$W_LENGTH] LEQ 0 
; 81 0946 THEN 
: 818 094 BEGIN 
; 819 0948 STRING_DESC [DSC$W_LENGTH] = 0; 
; 820 0949 STRING-DESC CDSCS$A-POINTER) = 0; 
: 821 950 END; 
; 8 : 0951 
; 8 095¢ RETURN WORD_BUF CO); 
> B24 095 
; 825 0954 1 END; 
O1FC 00000 .ENTRY DBGSNNEXT_WORD, Save R2.R3,R4,R5,R6,R7,R8 ; 0824 
58 00000000' EF 9E 90008 MOVAB WORD BUF,~R : 
57 04 AC DO 0000 MOVL § STRING_DESC, R7 + 0879) 
67 B85 0000D TSTW CR) : 
09 12 0000F BNEQ 1$ : 
67 B4 00011 CLRW ss (R7?) + 0882 
68 94 00013 CLRB WORD _BUF : 0883 
04 AZ D4 00015 CLRL 3s 4 (R7 > 0884 
68 11 00018 BRB 9$ : 0885 
56 04 A? 9E OOOIA 18: MOVAB 4(R7), R6 : 0891 
20 00 86 91 OO01g 2$: CMPB =s- « @O(ROS, #32 : 
06 12 0008 BNEQ 3$ : 
66 D6 00024 INCL (R6) : 0893 | 
67 B7 00026 DECW = CR”) > 0894 
F4 11 00028 BRB 2$ : 0891 
52 66 DO O002A 3$ MOVL  (R6), POINTE : 0901 
50 00 86 90 0002D MOVB @0(R6), CHAR : 090 
41 BF 91 00031 CMPB CHAR, #65 : 090 
ef 1F 000 3 BLSSU 7S : 
SA soBF 0 91 000 CMPB CHAR, #90 ; 
29 1A 00038 BGTRU 7$ ; 
66 003D 4$: INCL  (R6) > 0910 
50 00 86 003F MOVB $ @0(R6), CHAR : 
67 8B 0043 DECW (R77) : 0911 
41 BF 50 91 0004 CMPB CHAR, #65 : 0912 
06 1F 00049 BLSSU S$ : 
SA BF 91 00048 CMPB  =s-« CHAR, :-«#90 : 
Q 1B 0004F BLEQU : 
SF OF ; 9 23 S$: CPB HAR, #95 : 
51 66 32 ig 09 ; 6$ SUBL3 POINTER, (R6), RI : 0913. 
00000050 = &F 51 098 CMPL = R1, #80 : | 
0A 1A 0006 BGTRU : 
D7 11 00064 BRB 4$ : 0916 | 
66 D6 00066 7S: INCL _— (R6) : 0927 


GNPARSE us Sep-1 7:1 AX-11 Bliss-32 V4.0-74 Page 29 
ybe 000 12-08-1382 95: 453] DEBUG. SRCIDBCHPARSE .045; 1 oe 8) 
50 00 86 9 8 VB  @0(R6), CHAR ; 
8 ¢ DECW ; 0928 
50 6 RS SUBL3 POINTER, (R6), COUNT : 09 
6 MOVB. COUNT, WORD BU + 0939 
01 AB 6 7 MOVC3 cae (POINTER), WORD_BUF +1 + 094 
i tie as et 
67 B4 fe CLRW 87) + 0948 | 
66 D4 0008 CLRL (R6) + 0949. 
50 68 SE 0082 9$: MOVAB WORD_BUF, RO : 0952, 
04 0008 RET > 0954 


; Routine Size: 134 bytes, Routine Base: DBGSCODE + 0598 
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4 Page 30 
14-Sep-1984 12:17: DEBUG. DBGNPARSE .832;1 . (6) 


: 7 92? 1 GLOBAL ROUTINE DBGSNPARSE_EXPRESSION(INPUT_DESC, RADIX, 

3 3 i § ! ; VALUE _DESC_PTR, TERM_INDEX, MESSAGE_VECT) = 
; 850 $38 1 ! FUNCTION 

3 4 1 959 1! This routine interfaces to the Expression ag Hh eh 

; § 960 1! It first checks whether the expression is a DEFINEd name, in 

3 4 Hd i } which case the expansion is done. 

3 B34 Mt : FORMAL PARAMETERS: 

3 § 965 1! INPUT_DESC - The address of a VAX Standard ASCII string descriptor 
3 Hts B208 1! which describes the user input. 

3; 8 96/7 1! 

; 840 0968 1! RADIX - A longword containing an integer encoding of the 

> 841 0969 1! radix to be used for the interpretation of numeric 
3 erg 0970 1! literals. 

; 84 0971 1! 

; 844 0972 1! VALUE_DESC_PTR = The address of a Lqnquere to contain the address 

3 a2 Bate ! } of a language specific value descriptor. 

3; 84 0975 1! TERM_INDEX - The “terminator index'' value which indicates which 
; 848 0976 1! Lexical tokens are valid expression terminators in 
; 849 0977 1! the current context. For example, in the IF command, 
; 850 0978 1! the nezuere “THEN is the valid expression termina- 
; 851 0979 1! tor. These index values have names of the form 

$ S26 0980 1! TOKENSK_TERM_xxx. 

; 8 0981 1! 

; 6854 0982 1! MESSAGE _VECT - The address of a longword to contain the address 

3 HH 344, ' } of a message argument vector for errors. 

3 857 0985 1! 6th Optional Parameter - If this is present, and the value is 

; 858 0986 1! DBGSK_DEPOSIT VERB then pass this into DBGSEXP_INT, 
; 859 0987 1! and into DBGSEXPRESSION_PARSER, so that in 

; 860 0988 1! DBGSEXPRESSION_PARSER, when the expression is not 

; 861 0989 1! address expression and in deposit command, 

; 86 0990 1! DBGSEVAL_LANG_OPERATOR will not be called with 

; 86 0991 1! DBG$GL_IBENTITY_TOKEN. 

; 864 0992 1! 

; 865 0993 1 ! IMPLICIT INPUTS: 

; 866 0994 1! 

: 867 0995 1! NONE 

; 868 0996 1! 

: 869 0997 1 ! IMPLICIT OUTPUTS: 

: 870 bas sf 

3; 871 999 1! NONE 

3: 872 1000 1! 

3; 873 1001 1 ! ROUTINE VALUE: 

3; 874 1006 1! : 

; 875 1005 1! Same as the Expression Interpreter. 

; 876 1004 1! 

3; 877 1005 1 ! COMPLETION CODES: 

; 878 1998 1! ; 

3 443 199 ! Same as the Expression Interpreter. 

: Hy 1998 1 ! SIDE EFFECTS: 

3 o36 1010 1! . 

3; &8 1011 1! Same as the Expression Interpreter. 
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BEGIN 
BUILTIN ACTUALCOUNT ,ACTUALPARAMETER; 


} Translate default radix. 
IF _ .RADIX EQL DBGSK_DEFAULT 
RADIX = .DBGSGB_RADIXCOBGS$B_RADIX_INPUT); 
IF ACTUALCOUNT() GTR 5 
THEN 


09 Cd C9 Cd Od OD CD OD OD 
SERS SESS 
NOUS WN OO 


898 
BEGIN 
= ee NEQ DBGSK_DEPOSIT_VERB 

$SDBG_ERROR( ' DBGNPARSE \DBGSNPARSE_EXPRESSION'); 


RETURN DBGSEXP_INT (. INPUT DESC, .RADIX, .VALUE_DESC_PTR, .TERM_INDEX, 
DBGSK DEPOSIT _VERB); 


a a ek et a = 2 = = od od 2 wd =) 3 8 2 2 
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S 
p.RETURN DBGSEXP_INT (.INPUT_DESC, .RADIX, .VALUE_DESC_PTR, .TERM_INDEX); 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


P.ABI: .ASCII <31>\DBGNPARSE\<92>\DBGSNPARSE_EXPRESS\ ; 
eASCII = \ION\ : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0004 00000 .ENTRY DBGSNPARSE_EXPRESSION, Save R2 : 0955 | 
52 000000006 00 9€ 00002 MOVAB DBGSEXP_INT, R2 : | 
01 08 Ac p| 9009 CPL RADIX, #1 ; 1021 
08 at 000000006 00 9A Gor ei MOVZBL DBGSGB RADIX, RADIX 3 19 3 
9 18 0001IA BLEQU «=3$ : | 
05 18 AC D4 901¢ CHL 4 (AP) , rh} ; 1028 | 
00000000° oF 3 : PUSHAB P.ABI i 1030 
00028362 8F DD 8S PUSHL #164706 : 
000000006 00 3 FB 0 CALLS 3, LIBS$SIGNAL ; 
pp 28: PUSHL @# : 1032 
ze o¢ aC zp : 9 mova VALUE _DESC C_PTR, -(SP) : 
65 Os FB 00041 CALLS Hf PUNaReeHe IN INT : 


14 

GNPARSE Ib-5¢ 1984 01:47:1 AX=11 Bliss-32 V4.0-74 Page 32 
ype 000 1 =3007 138% 9}: 217: 18 DEBUG. SRC JDBGNPARSE .B32;1 . (6) 
4 44 RET 3 1037 

7E of AC 70 3 3$: MOVa VALUE _DESC_ pre ej” ; 

is 4 ac 70 4 MOva INPUT— Pee 3 
6 04 FB 00040 CALLS #4, DBG EXP_ 3 
04 00050 RET : 1038 


; Routine Size: 81 bytes, Routine Base: DBGSCODE + 0621 
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GLOBAL ROUTINE DBGSNPARSE _ADDRESS(INPUT_DESC, ADDR_EXP_PTR, 
RADIX, TERM_INDEX, MESSAGE_VECT) = 


! 

FUNCTION 
This routine interfaces to fhe Address Expression Interpreter to obtain 
an address expression descriptor. Address expression descriptors are 
used to describe the object of commands which use address expressions. 
The descriptor may contain a pointer to a primary descriptor, a pointer 
to a permanent symbol descriptor, an untyped L-value, or an L-value of 
type instruction. 


INPUTS 
INPUT_DESC - A longword containing the address of a standard 
string descriptor describing the input command. 


ADDR_EXP_PTR - The address of a longword to contain the address 
of an address expression descriptor. 


RADIX A longword containing the integer code of the 
n 


radix to be used in interpreting numeric Literals. 
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TERM_ INDEX - The “terminator index’ value which indicates which 
lexical tokens are valid expression terminators in 
the current context. For example, in the EXAMINE 

3 is carriage-return). These index values have names 
aes of the form TOKENSK_TERM_xxx. 

MESSAGE _VECT - The address of a longword to contain the address 

oh of a message argument vector for errors. 

94 7 OUTPUTS 

944 7 INPUT_DESC - The input string descriptor is updated to point to 
945 the first character after the address expression 

ae$ that was just parsed. 

948 ADDR_EXP_PTR - An Address Expression Descriptor is constructed and 
368 its address is returned to ADDR_EXP_PTR. 

951 MESSAGE_VECT - If an error is encountered, a message argument vector 


may be constructed (unless the error is singalled) 
and its address returned to MESSAGE_VECT. 


An unsigned integer longword completion code is returned as the routine 
value. This is whatever completion code the Address 
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' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
Expression Interpreter returns. 
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PROP OPOPOPOPIPIPINRY <2 0 st st tt tt at tt a tt 


BEGIN 
960 
961 MAP 
308 INPUT_DESC: REF DBGS$STG_DESC; 
964 BIND 
Bee DBGSCS_CR = UPLIT BYTE (1, DBGSK_CAR_RETURN); 
967 LOCAL 
968 LENGTH, ' Current location length 
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14-Sep-19 
STATUS, ' Return status 
TYPE; 


18 AX-11 Bliss-32 V 
1 DEBUG. SRC DBGNPARSE. 63 st 


! Current location type 


Initialize type and Length 
TYPE = DBGSK_NOTYPE; 
LENGTH = 0; 


Translate default radix. 
iF RADIX EQL DBGSK_DEFAULT 
RADIX = .DBG$GB_RADIXCDBG$B_RADIX_INPUT]; 


! Now call the Address Expression Interpreter appropriate for the current 


Language. 
STATUS = DBGSADDR_EXP_INT(. INPUT Te eet EXP_PTR, 


E, LENGTH, .RADIX, .TERM_INDEX); 
; Set the potential type and Length for current location. 


DBGSNSET_LAST_TYPLEN (. TYPE, .LENGTH); 
RETURN .STATUS; 


END; 
-PSECT 
OD 01 OOOF1 P.ABU: .BYTE 
DBGSCS_CR= 
ePSECT 
7 80 BF 9A Dodds HOV BL 
E D4 $0006 CLRL 
01 Oc ac O01 Bee CMPL 
9% 12 C BNEQ 
0C AC 000000006 9A . MOVZBL 
7E C AC 70 18: vQ 
3 AE 9F 1A PUSHAB 
1 AE 9F 18 PUSHAB 
7 064 ac 70 va 
000000006 09 98 fe 4 CALLS 
i) VL 
6— OD PUSHL 
08 Ag 0D PUSHL 
000000006 00 02 FB 000 CALLS 


DBGSPLIT,NOWRT, SHR, PIC,0 
1, 13 
P.ABJ 


DBGSCODE,NOWRT, SHR, PIC,0 
DBGSNPARSE_ADDRESS, Save R2 
#128, TYPE 
LENGTH 
RADIX, rt) 
DBG$GB RADIX, RADIX 
RADIX ‘ 
LENGTH 

YPE 

INPUT DeGEAson_ 
R * STATU 
LENGT 


bR R_EXP INT 


TYPE 
#2, DBGSNSET_LAST_TYPLEN 


rm 


NO OFWO 


1122, 


H 14 | 
vOs"000 10235p-1986 92:15:19 — EDEauG.SncSbacneanse.033;1 P88" FP. 


50 52 pO 0003 MOL STATUS, RO ¢ 1138 


; Routine Size: 62 bytes, Routine Base: DBGSCODE + 0672 


———— 
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voe~000 12860-1984 933455] DEBUG. SRC JDBGNPARSE .B32; 1 we BS 


LOBAL ROUTINE DBGSNSAVE_DECIMAL_INTEGER(INPUT_DESC, RESULT) = 


FUNCTION 
Extracts a numeric string from the command input string and converts it 
to a binary longword integer. Decimal radix is assumed for the input. 


INPUTS 
INPUT_DESC = The address of a standard ASCII string descriptor 
pointing to the input command Line to be scanned. 


333333 


33 


33 


RESULT = The address of a longword to receive the result, meaning 
the scanned integer value in internal format. 


! OUTPUTS 
INPUT_DESC = The input ge descriptor is updated to point to the 
first character after the scanned integer constant. 


RESULT = The scanned bet pa value (in internal format) is returned 
the RESULT location. 


G 
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i 
The value STS$K_SUCCESS is always returned as the routine value. 
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BEGIN 
BUILTIN 
EMUL; ' Multiply and add two longwords 
! to produce quadword result. 


MAP 
INPUT_DESC : REF DBGSSTG_DESC; ! Input string descriptor 


BIND 
DBGSCS_CR = UPLIT BYTE(1, DBGSK_CAR_RETURN); 
LOC 


ow 


AL 
VALUE: VECTOR(2], ' Result quadword 
STRING_PTR, ' Pointer to input string 
TRUNC_FLAG, ! Indicates truncation 
CHAR; ! Holds characters 


COoooooococcooooooooo 


WAAW 


: Check for null input 
if DBGSNMATCH (.INPUT_DESC, DBGSCS_CR, 1) 
SIGNAL (DBG$_NEEDMORE) ; 


RRRRRLEKLK 
AVE WN —OCONOAUESWN OC 0OO~ 


Delete leading white space 


STRING_PTR = .INPUT DESC CDSCSA_POINTER); 
WHILE. = INPUT DESC COSCSW_LENGTH] GTR O DO 


BE 
CHAR = CHSRCHAR_A (STRING_PTR); 
INPUT_DESC COSCSW_LENGTH]™= .INPUT_DESC CDOSCS$W_LENGTH] - 1; 


a a a a ee ee a ee ee ee ee a a ed a dd 
ee ce ce a ce ee ec a cee a ee ed cee ce ce ec nS ce ce ee ee ce ee ce ce ce cae cae ee ce cae cee ee ce ce ee ce ed ee ee ee ed 
C909 09 BIN SN NS SNS PAA AAA AAD MM BB BP BP EE EWA rnononor 
MRO DONA VUES WN OO OONA UNE WD 9 ODNO UE WN OOD NOAUS WN SO OE NOUS WN OO OONO 
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3) 
3) 
. 7 
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3} 
3 
3; 
3 7 
; 1 
3 7% 
; % 
3 3 
> 
3; 7 
. 3 
3 3 
37 
3 7 
3; 
3 
3 3 
3; 7 
3 
3 7 
3; 7 
3; 1 
3 Y 
3 7 
3; 7 
5; 
:% 
3 7 
3; 7 
5% 
3 
5; 
.-% 
3; % 
3; 3 
37 
3 7 
3 7 
3 7 
37 
; 7 
3; 7 
3; 
3 Y 
3 3 
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12-Sep- 17:1 DEBUG. SRC IDBGNPARSE .B32; 1 oe 


; 1057 1183 IF (.CHAR NEQ DBGSK_BLANK) AND (.CHAR NEQ DBGSK_TAB) THEN EXITLOOP; 

; 10 : 1184 END; 

3 18 1185 

; 1060 11 § 

: 190) i i Check for a numeric character. If we don't have one = syntax error. 

; 1908 1189 IF (.CHAR LSS '0") OR (.CHAR GTR '9") 

3; 1064 1190 THEN 

; 1065 1191 BEGIN 

: 1066 1138 INPUT DESC COSCSA_POINTER] = CHSPLUS (.STRING_PTR, -1); 

; 1067 119 DBGSSYNTAX_ERROR(~ INPUT_DESC); 

3; 10 1194 END; 

3 106 1195 

; 1070 1139 

: 1071 119 ! Now continue to accept numeric chars and convert them. Loop until we 

§ a 1198 ! find a non-numeric character. In the loop, append each new digit to 

3; 107 1199 ! the number being accumulated, check for overflow, and loop for the next 
3: 1074 1200 ' character. 

3; 1075 1201 ' 

3; 1076 1 OS VALUE (0) = 0; 

3; 1077 138 VALUE (1) = 0; 

: 1978 1204 TRUNC_FLAG = FALSE; 

: 1079 1205 WHILE~(.CHAR GEG 'O") AND (.CHAR LEQ '9") DO 

3; 1080 1206 BEGI 

3; 1081 344 CHAR = .CHAR = ‘0’; 

; 108@ 1208 EMUL <VALUE £0] SREF (10), CHAR, VALUE); 

> 108 1209 IF .VALUE C1) NEQ 0 THEN TRUNC FLAG = TRUE; 

3; 1084 1210 3 INPUT_DESC COSCSW_LENGTH] = .INPUT_DESC CDSCSW_LENGTH) - 1; 

: 1085 1211 CHAR = CHSRCHAR_A (STRING_PTR); 

3; 1086 1 \¢ 3 

3; 1087 121 

; 1088 1214 

; 1089 1215 ! If the next character is an alphabetic character, signal a syntax error. 
3 34 1si8 } This can happen if the user tries to enter a hex number, for example. 

3 1996 1218 : IF (,.CHAR GEQ ‘A*) AND (.CHAR LEQ ‘'2Z‘) 

3; 109 1219 THEN 

3 1094 1220 SIGNAL (DBGS_INVDIGDEC, 2, 1, CHAR); 

; 1095 1221 

3 Ine \$56 ; 
3: 109 122 ! Update the input pointer and length. Remember that char ae: now contains 
; 1098 1224 ! the first non-numeric character of the remaining string. Therefore, strina_ptr 
$ +9 4 1662 } points one place to the right too far. 

3 110% 1397 INPUT_DESC CDSCSW_LENGTH] = .INPUT DESC COSCS$W_LENGTH) + 1; 

; 1308 1228 INPUT_DESC COSCSA_POINTER) = CHSPLOS (.STRING_PTR, -1); 

st 

3 Hy : 1 Set up the result, check for truncation, and check for a negative number. 
3 1107 1 33 IF .TRUNC_FLAG THEN SIGNAL (DBG$_NUMTRUNC) ; 

3 1108 1234 IF .VALUE~CO) LSS 0 THEN VALUE [0] = -.VALUE (0); 

3 1109 1235 RESULT = .VALUE (0); 

: 1110 1 6 RETURN STS$K_SUCCESS; 

3117111 1 

3 1112 1238 END; 


DBGNPARSE 
v04-000 


AE 


6E 


FE70 


04 
0000Vv 


00000041 
0000005A 


55 000000006 
5E 


00000000° 
04 


00028000 
04 


FF 


04 


04 
08 


0D 
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01 000F3 


0036 iy 


e5 00009 
go 444 
F QO00E 
DO 00014 
DD 00018 
FB QOO1A 
E9 OOOTF 
dD 308 ‘ 
FB 000 
D0 00028 
85 Bobet 
13 00031 
9A 00033 
87 tr 
D1 00038 
13 00038 
D1 00030 
13 00040 
D1 94984 
19 0004 
D1 00047 
15 0004A 
9E 0004C 
DD 00051 
FB 00053 
7C 00058 
D4 Bo038 
Di 0005D 
19 B88 
a ts 
Ge 00067 
A 0006A 
0 00071 
13 00074 
og 0076 
8 79 
A 
11 
01 
19 
D1 
14 
dO 
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DEBUG. SRC JDBGNPARSE .B32; 1 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,O 

P.ABK: .BYTE 1, 13 

DBGSCS_CR= P.ABK 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
-ENTRY DBGSNSAVE DECIMAL _ INTEGER. Save R2,R3,R4,R5 
MO LIBSSIGNAC, R 


BL? 
SUBL2 #12, SP 
PUSHL #1 
PUSHAB DBGSCS_CR 
MOVL INPUT_BESC, R2 
PUSHL Re 
CALLS #3, DBGSNMATCH 
BLBC ~—=_s«aRRO,_:1$ 
PUSHL #164048 
CALLS #1, LIBSSIGNAL 
1$: MOVL  4(R2), STRING_PTR 
23: TSTW = (R2) 
BEQL «6s 3$ 
MOVZBL (STRING_PTR)+, CHAR 
DECW (2) 
CMPL CHAR, #32 
BEQL «= $ 
CMPL CHAR, #9 
BEQL «6s $ 
38: CMPL CHAR, #48 
BLSS 6 4$ 
CMPL CHAR, #57 
BLEQ 
4$: MOVAB =1(R4), 4(R2) 
PUSHL R 
CALLS #1, DBGSSYNTAX_ERROR 
5$: CLRO = VALUE 
CLRL _ TRUNC_FLAG 
6$: CMPL CHAR, “#48 
BLSS 
CMPL CHAR, #57 
BGTR 
SUBL2 #48, CHAR 
EMUL VALUE, #10, CHAR, VALUE 
TSTL  VALUE+4 
BEQL «= 7 


$ 
MOVE #1, TRUNC,FLAG 


7$ DECW 

MOV ZBL (STRING_PTR)+, CHAR 
8$ CMPL HAR, #65 

BLSS 

CHPL CHAR, #90 

BGTR $ 

PUSHL SP 
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14-Sep-1984 DEBUG. SRC JDBGNPARSE .B32; 1 

1 DD 00094 PUSHL : 

2 DD 3 PUSHL : 

00028AAA BF ODD «0009. PUSHL #166570 : 

5 4 FB CALLS a LIBSSIGNAL : 
é 86 Al 9$ INCW Rd) t 1227 
04 =A FF OA 5 OA MOVAB o1(R4) 4(R2) +1 : 

 < 0 BLBC TRUNC FLAG, 10$ : 1 

00028043 8F DD O00AB PUSHL #163907 : | 

1 58 0081 CALLS #1, LIBSSIGNAL : 
04 AE DS 06034 108: TST VALUE 5 1234, 

05 18 (0037 BGE : 
06 AE 06 AE cE °9 MNEGL VALUE, VALUE : | 
08 BC 06 AE OD © 11$ MOVL VALUE, @RESULT : 1235 
50 01 DO O00c$ MovL «6o#t, RO > 1236) 
04 000C5 RET : 1238 | 


; Routine Size: 199 bytes, Routine Base: DBGSCODE + 06h0 
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STRING_PTR = .INPUT_DESC [DSCSA POINTER]; 
WHILE TINPUT_DESC CBSC$W_LENGTH] GTR 0 00 


BEGIN 
CHAR = CHSRCHAR_A (STRING_PTR); 


: 119 ! 2 ! GLOBAL ROUTINE DBGSNSAVE_INTEGER(INPUT_DESC, RESULT) = 

: 1118 1041 1 | FUNCTION 

: 111 1 v4 | 1 } Extracts a numeric string from the command input string and converts it 
; 1338 } o7 : : fo = binary longword integer. The default radix is assumed for the 
3 : nput. 

? 1120 1545 1 | ‘ 

3 1121 1 ré 1 ! INPUTS 

3 11 § 1247 1! INPUT_DESC = The address of a standard ASCII string descriptor 

; 1 Z : re : pointing to the input command Line to be scanned. 

5 1125 1 29 1 i RESULT = The address of a longword to receive the result, meaning 
: 1: $ : 23 : } the scanned integer value in internal format. 

: 1128 1588 7 i OUTPUTS 

3; 1129 1254 1! INPUT_DESC = The input series descriptor is updated to point to the 
5 +4 ? 1386 : first character after the scanned integer constant. 

: 1138 1 2 1 RESULT = The scanned integer value (in internal format) is returned 
: 32 1528 ' the RESULT Location. 

: 1135 1361 ; ; The value STSS$K_SUCCESS is always returned as the routine value. 
MB HE} occ 

> 1139 15ee § 

3 1140 1265 5 BUILTIN 

3 1141 1266 EMUL; ! Multiply and add two longwords 

; by st 2 ! to produce quadword result. 
21144 1269 § MAP 

; itaz Hf 44! ; INPUT_DESC : REF DBGSSTG_DESC; ! Input string descriptor 

> 1147 1372 BIND 

; ba ist? § DBGSCS_CR = UPLIT BYTE(1, DBGSK_CAR_RETURN); 

3 1150 1275 é LOCAL 

3; 1151 1276 VALUE: VECTOR(2), ' Result quadword : 

3 1138 1277 2 STRING . ! Pointer to input string 

3 115 1278 TRUNC_FLAG, ! Indicates truncation 

: 1138 44 CHAR; ' Holds characters 

: 1196 1281 

3 115 1s8¢ 

: 1128 ; o7 Check for null input 

: ssct 1385 if DBGSNMATCH (. INPUT_DESC, DBGSCS_CR, 1) 

; 1168 Mi SIGNAL (DBG$_NEEDMORE) ; 

> 1164 1289 

; te? : ss : Delete leading white space 

: 1169 1 3 

3 11 129 

3 9% 1294 

3 11 1295 
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U C COSC$W LENGTH) = .INPU 
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INPUT_DES C -1; 
IF CHAR NEQ DBGSK_BLANK) AND (.CR HEN EXITLOOP; 


! Case on the current radix setting. We will believe this number to 
be in that radix. 
SELECTONE .DBG$GB_RADIXCDBGSB_RADIX_INPUT] OF 


COBGS$K BINARY) : 
BEGIN 


pole lolololololololo) hehehe) 
Ooo 


MRO OONO MEW OOD NOA UNE WIN $$ O ODNAUE UN SO OONAUE WN OVE NAME WN Oo 


Check for a binary character. If we don't have one = syntax error. 
iF (.CHAR LSS 'O") OR (.CHAR GTR '1°) 
THEN 


- DBGSSYNTA NPUT_DESC 


' Now continue to accept binary chars and convert them. Loop 
! until we find a non-numeric character. In the loop, append 
' each new digit to the number betas accumulated, check for 
overflow, and loop for the next character. 


VALUE (0) = 0; 
13 = 0; 
TRUNC_FLAG = FALSE; 
WHILE (CHAR GEQ 'O*) AND (.CHAR LEQ '1") DO 


| 

SECT AAR = .CHAR = ‘0! | 
EMUL (VALUE go) ZREF (2), CHAR, VALUE); 
1) NE 

| 


| 

| 

BEGIN 
INPUT DESC CDSCSA_POINTER] = CHSPLUS (.STRING_PTR, -1); | 
X_ERROR (71 ); | 

| 

| 


DDO 00000000000 00000090800 II 
MOOR GR AR A OOO OE UO OOO MOORING 


SCooouoono 


Ww 


IF .VALUE Q 0 THEN TRUNC FLAG = TRUE; 
INPUT_DESC CDSC$W_LENGTH) = .INPUT_DESC CDSC$W_LENGTH) - 1; 
CHAR = CHSRCHAR_A~(STRING_PTR); 


Seaor 


NOUS WUN —OOONOUES WhO 0On 


! If the next character is an alphabetic character, signal a 
' syntax error. This can happen if the user tries to enter a 
' hex number, for example. 


iF (.CHAR GEQ 'A') AND (.CHAR LEQ 3.) OR 
(.CHAR GEQ '2°) AND (.CHAR LEQ '9") 


EN 
SIGNAL (DBG$_INVDIGBIN, 2, 1, CHAR); 
END; 
CDBGSK_OCTAL] : 
BEGIN 


: Check for a octal character. If we don't have one - syntax error. 
if (.CHAR LSS 'O°) OR (.CHAR GTR '7") 
THEN 
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14-Sep-1984 17: DEBUG. SRC JDBGNPARSE .832; 1 
BEGIN 
peyt DESC CDSCSA_POINTER] = CHSPLUS (.STRING_PTR, 1); 
086 SYNTAX_ERROR(7INPUT_DESC); 


! Now continue to accept numeric chars and convert them. Loop 
! until we find a non-numeric character. In the Loop, aqeene 
' each new digit to the number ms he accumulated, check for 
overflow, and loop for the next cha 


VALUE (0) = 0; 


racter. 


VALUE [1] = 
TRUNC_FLAG = FALSE; 
WHILE~(.CHAR GEG ‘O") AND (.CHAR LEQ '7") DO 
BEGIN 

CHAR = .CHAR = ‘0° 

EMUL (VALUE £0] ZREF (8), CHAR, VALUE); 

IF .VALUE (1 é 0 THEN TRUNC_FLAG = TRUE; 

INPUT_DESC CDSC$W_LENGTH] = .INPUT_DESC CDSC$W_LENGTH) - 1; 
= CHAR = CHSRCHAR_A~(STRING_PTR); 


: If the next character is an alphabetic character, signal a 
! syntax error. This can happen if the user tries to enter a 
} hex number, for example. 


iF (.CHAR GEQ 'A') AND (.CHAR LEQ 'Z") OR 
(.CHAR GEQ '8") AND (.CHAR LEQ '9") 


HEN 
SIGNAL (DBG$_INVDIGOCT, 2, 1, CHAR); 
END; 


CDOBGS$K_DECIMAL) : 
BEGIN 


} Check for a decimal character. If we don't have one - syntax error. 
IF (.CHAR LSS '0") OR (.CHAR GTR '9") 
THEN 


BEGIN 
INPUT DESC CDSCSA_POINTER) = CHSPLUS (.STRING_PTR, -1); 
ans DBGSSYNTAX_ERROR(~INPUT_DESC); 


! Now continue to accept numeric chars and convert them. Loop 
! until we find a non-numeric character. In the loop, append 
! each new digit to the number notes accumulated, check for 

} overflow, and loop for the next character. 


VALUE 9 = Q; 

VALUE (1) = 0: 

TRUNC_FLAG = FALSE: 

WHILE (CHAR GEQ '6") AND (.CHAR LEQ '9") DO 


CHAR = .CHAR = ‘0’: 
EMUL (VALUE (OJ, %REF (10), CHAR, VALUE); 
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-1984 247:1 
1984 ae a 
FLAG 

. INPU 

TR); 


AX-11 
DEBUG. 


Bli 
SRC 


! If the next character is an alphabetic character, signal a 
! syntax error. This can happen if the user tries to enter a 


hex number, for example. 

IF (.CHAR GEQ ‘A') AND (.CHAR 
SIGNAL (DBG$_INVDIGDEC, 2, 

END; 


CDBGSK_HEX) : 
BEGIN 


LEQ 'Z") 
1, CHAR); 


5 
J 


2 TRUE 
T_DESC CDSC$W_LENGTH) - 1; 


s-32 V4.0-74 
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Check for a hexidecimal character. If we don't have one = syntax error. 


iF ((.CHAR LSS 'O") OR (.CHAR 
weg te LSS "A') OR (.CHAR 


BEGIN 
INPUT DESC CD 
- DBGSSYNTAX_ERROR(- 


GTR '9')) AND 
GTR ‘F')) 


3 


SCSA_POINTER] = CHSPLUS (.STRING_PTR, -1); 
INPUT _DESC 


Now continue to accept hexidecimal chars and convert them. 


Loop until we find a non-nu 


meric character. 


In the Loop, 


for overflow, and loop for the next character. 


! 
i 
append each new digit to the number being accumulated, check 
i 


VALUE (0) = 0; 

VALUE [1] = 0: 

TRUNC_FLAG = FALSE: 

WHILE~(. CHAR GEQ 'O") AND (.C 
(.CHAR GEQ "A') AND (.C 


IN 
i (.CHAR GEQ '0*) AND (. 
CHAR = .CHAR = ‘0O' 


CHAR = .CHAR = 55; 
EMUL (VALUE 0}, ZREF' (16 
IF .VALUE £1) NEQ 0 THEN 
INPUT_DESC COSC$W_LENGTH) 
CHAR = CHSRCHAR_A™ (STRING 


END; 


HAR LEQ '9') OR 
HAR LEQ 'F") DO 


CHAR LEQ '9") 


CHAR, VALUE); 
- FLAG = T 
) 


! If the next character is an alphabetic character, signal a 


syntax error. 
if (.CHAR GEQ 'G") AND (.CHAR 
SIGNAL (DBG$_INVDIGHEX, 2, 


LEQ ‘2") 
1, CHAR); 


RUE; 
APUT_DESC tbScSw_LENGTH] - 1; 
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4 
76 6€ 69 20 73 69 20 58 49 44 41 24 


“1984 12:17:17 — UDEBUG. SREIDBGNPARSE B50; 1 
END; 

sachhy 7-{ pt : 
+ + amma  atetetomesenclemammenseete cpt tronts DBGS$GB_RADIX is invalid"); 


TES; 
' Update the input pointer and Length. Remember that char rie now contains 
! the first non-numeric character of the remaining string. Therefore, string_ptr 
} points one place to the right too far. 
INPUT_DESC Habre dle = .INPUT_DESC CDSC$W_LENGTH] + 1; 
INPUT_DESC COSCSA_POINTER] = CHSPLOS (.STRING_PTR, -1); 


Set up the result, check for truncation, and check for a negative number. 


' 

i 

if .TRUNC_FLAG THEN SIGNAL (DBG$_NUMTRUNC); 

IF .VALUE~COJ LSS 0 THEN VALUE [0] = -. VALUE (0); 
-RESULT = .VALUE (0); 

RETURN STS$K_SUCCESS: 

END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


0D OOOFS P.ABL: .BYTE w. i 
42 44 4 OOOF7 P.ABM: .ASCII \4DBGNPARSE \<92>\DBGSNSAVE _INTEGER, DBG$\ 
F 6 41 53 4E 00106 
47 42 44 00115 
SF 42 47 00119 <ASCII \GB_RADIX is invalid\ 
69 6C 61 00128 
DBGSCS_CR= P.ABL 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OOFC 00000 -ENTRY DBGSNSAVE_INTEGER, Save R2,R3,R4,R5,R6,R7 
27 4544 F 9E 0006 MOVAB DBGSSYNTAR_ERROR, R7 
6 000000 0 3 000 HOVAB LIBSSIGNAL> R6 
SE C C2 0000E SUBL2 #12, SP 
1 D 00011 PUSHL #1 
00000000" EF OF 0013 PUSHAB DBGSCS_CR 
52 4 AC DO 0001 VL _—INPUT_BESC, R2 
52 DD 00010 PUSHL Re 
FDA4 CF 2 F OO1F CALLS #3, DBGSNMATCH 
9 E9 00024 BLBC =_«aRO._*1 
00028000 er DD 00027 PUSHL #164048 
1 £B CALLS #1, LIBSSIGNAL 
06 A2 9 1$ MOVAB 4(R2), 
4 6 D 8 4 MOVL (R3). STRING_PTR 
62 8B 7 2%: TSTW = (R2) 


—— 4 
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DBGNPARSE 1b-Se =1984 01:47:1 AX-11 Bliss-32 V4.0-74 Page 45 
ybe e000 12-808-1 3be 9} 15:18 DEBUG. SRC IDBGNPARSE .B3 31 9 69) 
OF 13 9 BEQL 6 3$ ; 
6E 4 OA 8 MOVZBL (STRING_PTR)+, CHAR t 1295. 
62 87 DECW  (R2 + 129 
20 6 D4 4 CMPL SHAR, #32 t 1297. 
Fo 1 4 BEQL : 
09 43 } bd sear HAR, #9 : 
50 000000006 9A O04A 3$: MOVZBL DBGSGB_RADIX, RO : 1303 
02 91 51 CMPB RO, @# : 1306. 
6 if 0054 BNEQ 1 ¢ 
30 6f D 0096 CMPL CHAR, #48 ; 1311) 
19 88 BLSS g 
31 6— 01 00058 CMPL HAR, #49 : 
09 15 000 : BLEG ; | 
63 FF AG 9E 00060 4S: MOVAB =1(R4), (R3) t 1314) 
52 DD 00064 PUSHL 3, 1315) 
67 01 FB B08 CALLS #1, DBGSSYNTAX_ERROR ‘ | 
04 AE 7C 00069 5$ CLRQ  ~—- VALUE 3 1323) 
55 04 0006¢ CLRL _ TRUNC_FLAG > 1325) 
30 6— D1 00 $F 6$: CMPL CHAR, #48 ; 1326) 
1— 19 00 1 BLSS : 
31 6E D1 00073 CMPL HAR, #49 : 
19 14 90076 BGTR g : | 
6E 30 ¢2 0007 SUBL2 #48, CHAR : 1328 
04 AE 6E 02 04 AE 7A 00078 EMUL VALUE, #2, CHAR, VALUE 3; 1329 
08 ag 0 booas TSTL VALUE +4 3 1330. 
03 13 0008 BEQL «6s 7$ ; | 
55 01 00 00087 MOVL #1, TRUNC_FLAG 3 
62 B7 0008A 7S: DECW = (RO) : 133 
bE 84 9A 0008C MOVZBL (STRING_PTR)+, CHAR : 133 
DD 11 9008" BRB 4 : 132 
00000041 = 8F 6 D1 90091 AS CPL CHAR, #65 ; 133 
0000005A BF 6 D} 9009A CPL CHAR, #90 : 
32 6€ 01 BOOAS 9$ CMPL CHAR, #50 : 1340 
68 19 SO0A6 BLSS  18$ ; 
39 6 D1 OOOA CMPL CHAR, #57 : 
68 14 000AB BGTR 19$ ; 
5E DD OOOAD 10$:  PUSHL SP : 1342 
01 DD OOOAF PUSHL #1 : 
02 DD 00081 PUSHL #2 F 
00028AB2 =s«BF bb 0085 PUSHL #166578 ; 
08 i 91 00088 11$: CMPB RO) #8 > 1346 
65 12 0008 BNEQ 226 : | 
30 6f D1 000C CMPL CHAR, #48 : 1351 
05 19 000C¢ BLSS 12$ : | 
37 3 D1 99¢ CMPL CHAR, #55 : | 
09 15 000¢ BLEG 13$ ; 
63 FF AQ 9€ OOOCA 12$:  MOVAB -1(R4), (R3) : 135 
52 DD 000C PUSHL Re : 1355) 
67 01 FB CALLS #1, DBGS$SYNTAX_ERROR F 
04 AE 7C 00003 138: CLRQ. = VALU : 136 
55 Da CLRL _ TRUNC_FLAG : 136 
30 6— 01 000D8 148: CMPL CHAR, “#48 : 136 
1E 19 00008 BLSS ; 
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00000041 
0000005A 

04 AE 6€ 
00000041 
0000005A 


37 if 
08 Se ie 
8 At 

55 6; 
ge 

6E 4 
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38 of 
Sh 

39 6E 
61 

5E 

01 

02 

00028AC2 44 
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30 ef 
05 

39 6E 
09 

63 FF =6AG 
52 

67 01 
04 ag 

5 

30 6E 
or 
19 
6E 30 
0A 04 AE 
08 Ag 

0 
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$: 
$: 


$: 


DEBUG. SRC 
CHAR, #55 


#48, CHAR 
VALUE, #8, CHAR, VALUE 
UE+4 


#1, TRUNC_FLAG 
(RO) 
(STRING_PTR)+, CHAR 


HAR, #48 

CHAR, #57 

=1(R4), (R3) 

#1, DBGSSYNTAX_ERROR 
VALUE 

TRUNC_FLAG 
HAR, #48 

CHAR, #57 

#48, CHAR 

VALUE, #10, CHAR, VALUE 
VALUE +4 

W1,, TRUNC_FLAG 

(STRING PTRI*, CHAR 


2 
HAR, #65 
508 


RO, #16 
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v04-000 127808-1 3b Peet ae DEBUG. SRCJDBGNPARSE.B32;1 9 9) 
3 13 0018C¢ BEQL 34$ ; 
0096 }j 1 F BRW 46$ : 
30 6 D1 00191 34%: CMPL HAR, #48 * 1430 
19 001 BLSS : 
39 6— D1 001 CMPL HAR, #57 : 
1B 15 001 BLEG : 
00000041 = 8F 3 D1 198 35$: CMPL HAR, #65 + 1431) 
09 19 OO1A BLSS : 
00000046 = &F 3 D1 O01A4 CMPL HAR, #70 : 
09 15 001AB BLEQ : 
63 FF AG GE OOTAD 36$:  MOVAB =-1(R4), (R3) + 1434) 
32 DD O18} PUSHL R + 143 
67 1 FB 0018 CALLS #1, DBGSSYNTAX_ERROR : 
04 AE 7¢ 0186 37$: CLRG Vv + 146 
55 D4 001B CLRL - TRUNC_FLAG + 144 
50 6€ DO 001BB 38$: § MOVL CHAR, “RO : 144 
51 04 0018 CLRL : 
30 50 D1 001C CMPL = RO, «#48 : 
07 19 ooi¢ Biss 6-39 : 
51 06 001C INCL = R1 : 
39 50 01 001¢7 CMPL = RO, ~#57 : 
12 15 OOiCA BLEG 40s : | 
00000041 8F 50 D1 O1¢¢ 39$: CMP RO, #65 + 1447) 
ef 19 0010 BLS 44$ : | 
00000046 =F 0 D1 00105 CMPL = RO, -#70 : 
26 14 0010¢ BGTR 44$ : | 
OA 1 €9 OO1DE 40$:  BLBC Ri, 41$ + 1449 
39 50 D1 OO1E1 CMPL = RO. #57 : 
05 14 00184 BGTR 41 : 
6E 30 C2 00166 SUBL2 #48, CHAR + 1451 
03 11 O01E9 BRB : 
6E C2 OO1EB 41$:  SUBL2 #55, CHAR + 1453 
04 AE 6E 10 04 AE 7A OOiEE 42$:  EMUL VALUE, #16, CHAR, VALUE + 1454 
08 A D3 O01F TSTL VALUE+4 > 1455 
03 13 001F8 BEQL 3$ ; 
55 01 00 OO1FA MOVL #1, TRUNC_FLAG ; 
62 B7 OOIFD 43$: DECW (Rd) : 1456) 
6E 84 9A OO1FF MOV ZBL (STRING_PTR)+, CHAR : 1457 
B7 11 90202 BRB : 1446 
00000047 = 8F 6E 0100204 44$:  CMPL CHAR, #71 : 146 
2B 19 00208 BLSS 47$ ; 
0000005A BF 6 D1 00200 CMPL CHAR, #90 : 
é 14 00214 BGTR 47$ ; 
—E DD 0 1 PUSHL  $P : 1465. 
1 0D 0021 PUSHL #1 ; 
2 DD OO21A PUSHL : 
00028ABA 8F DD 0021 PUSHL #166586 ; 
46 4 FB 00220 45$: CALLS #4, LIBSSIGNAL ; | 
1 11 00 BRB 47$ : 1303. 
00000000' EF 9F 00227 46$:  PUSHAB P.ABM + 1471 | 
1 DD 0022D PUSHL F 
00028362 8F DD F PUSHL #164706 ; | 
66 FB 5 CALLS #3, LIBSSIGNAL ; | 
6 86 47%:  INCW + 1480 | 
3 FFU . A MOVAB =1(R4), (R3) : 1481. 
9 33 E : BLBC TRUNC FLAG, 48$ : 1486 | 
00028043 BF DD 0024 PUSHL #163907 : 


osncags 


3; Routine Size: 


605 bytes, 


08 Bt 
50 


Routine Base: 


a we 
wea) 

04 AE cf 

01 »p0 

04 


DBGSCODE + 0777 


H 15 
18 =3e8 71382 94:95: . DEBUG. SRCIOBGMPARSE .035;1 


7 ALLS he IBSSIGNAL 
A 48$: Fat u 

D BGE 

fF MNEGL VALUE, VALUE 

4 49%: MOVL VALUE, @RESULT 
; mov, #1, AO 
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tae rd i Sep Ot igs 2 V4.0 Page 4 


rs 


DWN UE WENO ONO 


BEGIN 


MAP 
INPUT_DESC : REF DBGSSTG_DESC; ! Input string descriptor 


Pe et et et et eke et et ek et et ed ak ek dh 
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14-Sep-1984 12:17:1 DEBUG. SRC JDBGNPARSE .832;1 (10) 
: ! 1438 ! GLOBAL ROUTINE DBGSNSAVE_STRINGCINPUT_DESC, BUFF_PTR, MESSAGE_VECT) = 
: 1 1494 1 | FUNCTION 
, 5 1495 1! This routine accepts the next string from the input buffer 
3 1 pds 1! and stores it away in a dynamic buffer. Leading white space is ignored. 
3 3 1497 1! Trailing white space, comma, or <cr> terminate the string. 
: : 1038 : } The saved string is stored 3s a counted string. 
; 1300 ! FORMAL PARAMETERS: 
:1 1308 1 i INPUT_DESC - The address of a VAX standard ASCII string 
: : 44 120? ! descriptor which describes input user command. 
: 1381 1505 1: BUFF _PTR - The address of a longword to contain the beginning 
: : S¢ 1306 ! } address of the stored counted string. 
: 1384 1508 1: MESSAGE_VECT = The address of a Longword to contain the address | 
; ’ 85 120) : of a message argument vector for errors. 
: 1387 1311 { IMPLICIT INPUTS: 
ie Bg) oe 
: 1391 1315 | IMPLICIT OUTPUTS: 
; 1398 1317 : On success, the stored counted ASCII string. 
; 1a. H+ 3 ! On failure, a message argument vector. 
; 1397 He ! ROUTINE VALUE: 
: 1399 13 § i An unsigned integer longword completion code 
; 1401 1395 i COMPLETION CODES: 
; 1408 \3¢0 : : STSSK_SUCCESS (1) - Success. String isolated and stored. 
5 1405 139 1 i STSSK_SEVERE (4) - Failure. No string stored. Message argument 
; ; rs] 13 ? ' } vector returned. 
: 1408 1332 1/ Note that this routine returns failure if a 
3 1409 15 ,: string cannot be found. A NEEDMORE 
; : 1 ' } message is constructed in such cases. 
; 13 i SIDE EFFECTS: 
:1 15 1 i The input buffer is updated to reflect one character beyond the Last 
: ; 2 : character accepted. 
:1 1 .: 
3 1 1 
3 1 1 
3 7 1 : 
3 1 1 
¢ 3 1 
s ¥ 1 
3 1 1 


PAA AGIII 
BELLE SE 


BIND 
DBGSCS_CR = UPLIT BYTE(1, DBGSK_CAR_RETURN); 
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yoee000 14-Sep-19 4 055i DEBUG. SRC JOBGNPARSE .B32;1 ” (10) | 
LOCAL 
STRING: REF VECTORC,BYTEI, ! Will hold the string 
' Count of characters in string 
POINTER; ! Temporary pointer 


Check for null input 
IF DBGSNMATCH (. INPUT_DESC, DBGSCS_CR, 1) 


BEGIN 
-MESSAGE_VECT = DBGSNMAKE_ARG_VECT (DBGS_NEEDMORE) ; 
ocrume STSSK_SEVERE; 


Delete leading white space 
WHILE CHSRCHAR (.INPUT_DESC CDSCS$A_POINTER]) EQL * * DO 


INPUT_DESC CDSCSA_POINTER] = CHSPLUS (. INPUT DESC CDSCSA_POINTER], 1); 
paves DSCSWILENGTH] = .INPUT_DESC CDSCSW_LENGTH] -"1; 


Save the start of the string 
POINTER = .INPUT_DESC CDSCSA_POINTER); 


: Now look for a comma, a blank, or <cr> 


WHILE CHSRCHAR (.INPUT_DESC CDSCSA_POINTER]) NEQ * * AND CHSRCHAR (.INPUT_DESC CDSC$A_POINTER]) NEQ *," 
AND CHSRCHAR (.INPOT_DESC COSCSA_POINTER]) NEQ DBGSK_CAR_RETURN DO | 


BEGIN 
INPUT_DESC CDSCSA_POINTER] = CHSPLUS (.INPUT DESC CDSCSA_POINTER], 1); 
an DSCSWILENGTH) = .INPUT_DESC CDOSCSW_LENGTH) -"1; 


109 CO CS OD CD CD C9 OD 09 09 SII NI SINISE PAA AAA A AAA MIMI 
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; } Figure out how many characters to save 
rt 3 COUNT = CHSDIFF (., INPUT_DESC COSCSA_POINTER], .POINTER); 
471 9 
AL Allocate the proper size buffer 
rhe 2 STRING = DBGSGET_TEMPMEM ((.COUNT/ZUPVAL) + 1); 
476 600 
477 601 !' Copy over the count and the characters. 
478 ope ! 
479 60 STRING CO) = .COUNT; 
480 604 CHSMOVE (.COUNT, .POINTER, STRING (1)); 
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16 
169? Set up the output parameter and return 
1609 .BUFF_PTR = STRING (0): 
1610 RETURN STS$K_SUCCESS; 
1612 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
DBGSCS_CR= P. ABN 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
007¢ 00000 .ENTRY DBGSNSAVE_STRING, Save R2,R3.R4,R5,R6 5 1492) 
01 pp 00002 PUSHL #1 : 1559 
00000000" EF 9F 00004 PUSHAB DBGSCS ce ; 
52 04 AC DO OOO0A MOVL INPUT_BESC, R2 3 
3¢ DD 0000 PUSHL : 
FB56 CF 0 FB 0001 CALLS #3, DBGSNMATCH ; 
15 50 £9 0001 LBC ; 
00028000 BF DD 00018 PUSHL #164048 : 1562 | 
000000006 00 01 FB 00018 CALLS #1, DBGSNMAKE_ARG_VECT : 
0c BC 50 pO 0002 MOVL RO, @MESSAGE_VECT : 
50 04 00 90089 MOVL #4. RO + 1563. 
: 04 0002¢ RET 3 
50 04 A2 9E 0002D 1$: MOVAB 4(R2), RO : 1569 | 
20 00 B80 91 00031 2$: CMPB  =s-« @OCROS, #32 : | 
06 12 00035 BNEQ 3$ : | 
60 06 00037 INCL (RO) : 1571) 
62 B87 00039 DECW = (R2) : 1572 | 
F4 11 00038 BRB 2$ : 1569 | 
53 60 DO 0003D 3$: MOVL (RO), POINTER : 1578. 
20 00 B80 91 00040 4$: CMPB OS s«a0(RO), #32 > 1583 
12 13 00044 BEQL ©5$ : | 
2c 00 B0 91 00046 CMPB a0 (RO), TY : 
OC 13 000A BEQL 4 ; 
0D 00 80 91 0004C CMPB 4 =s-s«@O(ROD, #13 + 1584 
06 13 9990 BEQL «6=sSS$ : 
6 06 INCL (RO) > 1586 
62 B7 00054 DECW R2) : 1587 
E 11 0096 BRB 4$ ; 1383 
52 60 C3 909 5$ SUBL3 POINTER, (RO), COUNT : 159 
50 52 04 ¢ 00 DIVi3 #4, COUNT, RO : 1598 
01 AO OF 06 PUSHAB 1(RO) F 
000000006 90 gi F 06 CALLS #1, DBGSGET_TEMPMEM : | 
6 p 6A MOVL RO, ING : 
66 $0 MOVB_ COUNT, (STRING) > 1603. 
01 Ab 6 2 9 MOVC3 COUNT, (POINTER), 1(STRING) > 1604 
08 eC D 7 MOVL STRING, @BUFF_PTR : 1609 
0 01 p 79 MOVL #1, RO : 16 
4 0007C¢ RET : 16 


at 
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125 bytes, 
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AX-11 
DEBUG. 


Bl bigse -32 v4.0-7 
SRC JDBGNPARS 


o a3 37 


Page 185 


ww 
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Mbe~000 00n 1382 3 4D met 


Pick up a single directory name by pag nee: until 
a baperes tae comma is reached (commas inside of 
square brackets are ignored) 

Allocate space for a node containing the directory name. 
Copy the directory name into this node, and 


Mrororororn 


link the node into the List. 


rn! 


SS 


BEGIN 


14-Sep- 2:17:31 DEBUG.SRCJDBGNPARSE.B32;1 (11) 
1390 $13 GLOBAL ROUTINE DBGSNGET_DIR_LIST (LEX_STG_DESC, RESULT_PTR, MESSAGE_VECT) = 
138 615 ' FUNCTION 
49 918 : 
494 61 : Parse a directory list. Used by the command 
495 918 : SET SOURCE dir-List 
$38 61 : 
49 620 ' INPUTS 
498 621 : 
499 6 ¢ : LEX_STG_DESC <= A string descriptor for the unparsed 
500 6 : tigen list. 
28) 624 ‘ RESULT_PTR - The result of the parse will be placed at the 
4 625 : address given by result_ptr. 
50 6 8 : MESSAGE_VECT = Address of a longword to contain the address of 
504 6 : the message argument vector. 
505 628 : 
506 629 ! QUTPUTS 
507 630 : 
508 631 : This routine builds a Linked List of directory names and 
208 O36 leaves a pointer to this list in result_ptr. 
511 634 ' ROUTINE VALUE 
21g 635 : 
51 636 ! completion code which is one of either: 
514 637 : STSSK_SEVERE (4) Unsuccessful parse 
giz O38 STSSK_SUCCESS (1) Successful parse 
517 640 ! ALGORITHM 
518 641 : 
519 oe : The directory List will be of the form: 
520 64 ! Cdirljfilel,tdir2jfile2,...Cdirnifilen 
521 644 : Do until end of List is reached: 
5 ¢ 645 : 
5 646 ‘ 
524 647 : 
525 648 : 
526 649 ! 
527 50 ‘ 
528 51 ! 
5 26 
5 5 
5 54 
5 55 
56 
57 
58 
59 
60 
61 


ee em ee a a ee ek a a ad ed kd od ts = = = 2 2 
tt a at tt ah at a 2 SS 2 SS 2 SS SS 9 2 2 YS 


PROROPOREPOMOPONONOPONONOPONINONOND 9 tt 9 9 9 


6 
6 
6 
6 
31 6 
3 6 Pp : s 
232 e LEX_STG_DESC : REF BLOCK C, BYTE]; ! Input string descriptor 
535 6 LOCAL 
536 6 TOT_LENGTH, ‘ Number of chars to be read from 
537 6 : PARSE_STG_DESC 
538 6 TOT_CHARS_READ, ! Number of Chars read from 
539 O66 : PARSE_STG_DESC so far 
540 66 CHARS_READ, ' Number of chars in directory name 
541 664 : under construction 
266 665 IN_BRACKETS, ! TRUE if we are inside of square 
54 606 : brackets 
544 66 CHAR, ' Current character 
545 668 PREV. CHAR_PTR i 329 : 
546 669 FIRST_DIR-FLAG, i TRUE if this is first directory in 
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47 67 : List 
rk 67 PREV_DIRNAME: REF SDSLSENTRY, ! Previous directory name 
4 67 CURR DIRNAME: REF SDSLSENTRY, ! Current directory name 
50 67 FIRST_DIRNAME, ' Pointer to first directory name 
1 67 : (head of Linked List 
¢ 67 INPUT _PTR i 999 
é ? OUTPUT _PTR i 999 
4 7 NEW_INPUT_PTR, i 22? 
555 7 PREV_ CHAR : rT? 
28 7 QUOTE_FLAG, ! TRUE if the directory currently being 
5 ; processed is inside of quotes. 
28 DBLQUOTE _FLAG; ! TRUE if the directory currently being 
2 : processed is inside double quotes 


FAAP AAAAAAAO 


WO OONOVUES WR $$ O OONOUS WN O 


Skip leading blanks 
WHILE = CHAR EQL DBGSK_BLANK AND .TOT_CHARS_READ LSS .TOT_LENGTH DO 


CHAR = CHSRCHAR_A (INPUT PTR); 

TOT_CHARS REAP = .TOT CHARS READ + 1; 

LEX-STG_DESC CDSCSA_POINTERT = 
CHSPLUS(.LEX_STG_DESC CDSCSA_POINTER], 1); 

LEX ST6_DESC CDSCSW_LENGTH) = .LEX_STG_DESC COSC 


SSELEAE 


) 
DSCSwW_LENGTH) - 1; 


¥Ez3 


60 8 
561 8 
205 8 
207 Initialize the various flags and counters we need. 
565 68 IN_BRACKETS = FALSE; 
566 68 TOT_LENGTH = .LEX STG_DESC COSC$W_LENGTH); 
567 69 TOT-CHARS_READ = 0; 
568 69 QUOTE FLAG = FALSE; 
569 69 DBLQUOTE FLAG = FALSE; 
570 69 CHARS_READ = 0; 
Ble t 
278 ! FIRST_DIR_FLAG is true initially because we are processing the 
ore 697 first directory in the List. 
576 699 FIRST_DIR_FLAG = TRUE; 
577 70 PREV_BIRNAME = 0; 
578 70 WHILE .TOT_CHARS_READ LSS .TOT_LENGTH DO 
579 70 BEGIN 
580 70 INPUT_PTR = CHSPTR (.LEX_STG_ DESC COSCSA_POINTER)); 
581 70 CHAR = CHSRCHAR_A (INPUT_PTRJ; 
ong 70 
58 70 
5 70 
5 70 
5 70 
5 
5 
5 
5 
5 
5 
5 
5 
5 


o 
uw 


ae EQL DBGSK_QUOTE OR .CHAR EQL DBGSK_DBLQUOTE 


BEGIN 
IF .CHAR EQL DBGSK_QUOTE 
QUOTE_FLAG = TRUE 


ELSE 
DBLQUOTE_FLAG = TRUE; 


ee ee ee ee ee a ee ee cD De ee ce ee ee ec ee ed ee ee ee ee ee ed ee ee eed 
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; 1604 1727 4 

; 1808 5 § d ' Ad the point t th 

3 ! Advance the pointer past the quote. 

: 1609 180 i ee . 

; 1988 1731 & LEX_STG_DESC CDOSCSA_POINTER] = é‘ 

; 160 17 ¢ 4 CH a STG_DESC CDSC$SA_POINTER], 1); 
: 1610 17 4 LEX_STG_DESC COSC$W_LENGTH] = .LEX_STG_DESC DSCSwW_LENGTH) - |; 
; 1611 1734 4 TOT-CHARS_READ = .TOT_CHARS_READ +71; 

; 1916 1735 4 CHAR = CHSRCHAR_A (INPUT_PTR); 

ee ie a 

: 1615 1738 

3 1219 1739 ! Pick up next directory name. 

3; 161 1740 : 

3 1618 1741 WHILE .TOT_CHARS_READ LSS .TOT_LENGTH AND 

3 161 179 .CHAR NEQ BBGS$K_CAR RETURN AND 

; 1620 1743 4 (.CHAR NEQU 2C'7' OF .IN_BRACKETS) 

3 19s) 1744 3 

; 16 ; 1745 4 BEGIN 

3 195 1746 4 IF .CHAR EQLU ZC°C* OR .CHAR EQLU %C'<" THEN IN_BRACKETS = TRUE; 
; 1624 1747 & IF .CHAR EQLU %£'J* OR .CHAR EQLU %C'>' THEN IN_BRACKETS = FALSE; 
; 1625 1748 4 IF .CHAR NEQ DBGSK_BLANK 

: 1626 1749 4 THEN 

; 1627 1750 4 PREV_CHAR_PTR = CHSPLUS (.INPUT_PTR, <1); 

3; 1628 1751 4 

3 1oep 1736 4 PREV_CHAR = .CHAR; 

; 1650 17535 4 CHAR = CHSRCHAR_A (INPUT_PTR); 

; 1631 1754 4 

3 1036 3755 4 

3; 163 1756 4 ! If this is a doubled up quote character, undouble them and mark 
3 1634 1757 & ! the position. 

: 1635 1758 4 ! 

3 1938 1759 4 IF .DBLQUOTE_FLAG AND 

: 1637 1760 4 «CHAR EQL DBGS$K_DBLQUOTE AND 

; 1638 1761 4 -PREV_CHAR EQL BBG$K_DBLQUOTE 

3; 163 1236 4 N 

3; 1640 1763 4 (.PREV_CHAR_PTR)<O, 8, O0> = 0; 

3 1641 1764 4 

: 1668 1765 4 TOT_CHARS_READ = .TOT_CHARS_READ + 1; 

3 164 1766 4 CHARS_REABD = .CHARS_READ + T; 

3 1644 1767 END; ! End of inner while loop 

3: 1645 1768 

; re 1769 

3 + #1 1770 We now have a complete directory name. Allocate space for it. 
: 1805 HA CURR_DIRNAME = DBGSGET_MEMORY (2 + (1 + .CHARS_READ)/2ZUPVAL); 

: 1650 1773 4 IF (.FIRST_DIR_FLAG) 

3; 1651 1774 3 THEN 

3 1o26 1775 4 BEGIN 

3; 165 1776 4 FIRST_DIR_FLAG = FALSE; 

> 1654 1777 4 FIRST-DIRNAME = .CURR_DIRNAME; 

3; 1655 1778 END; 

; 1026 177 

3; 165 1730 

3 1658 1781 ! Link in next directory name 

3; 1659 1784 ‘ 

3 1660 1783 4 IF (.PREV_DIRNAME NEQA 0) 
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; 1661 1784 THEN 

: 166¢ 1785 PREV_DIRNAME CSDSLSL_ENT_FLINK] = .CURR_DIRNAME; 
; 166 17 $ 

3 1664 17 

3 199? if 3 } Set PREV_DIRNAME for next time around Loop. 

: 1667 17 PREV_DIRNAME = .CURR_DIRNAME; 

3; 1668 1791 

3; 1669 16 

: 1670 179 ! Fill in the fields of CURR_DIRNAME. 

: 1671 1794 i 

; 1976 1795 CURR _DIRNAME CSDSLSL_ENT oft INK) = 0; 

> 167 1796 CURR-DIRNAME [CSDSL$B-ENT-DIRLEN) = 0; 

3 1674 1797 NEW_TNPUT_PTR = CHSPTR ([LEX STG Dest CDSCSA_POINTER)); 
3 1675 1798 ouTPuT err = CHSPTR (.CURR_DTRN ARE + 5); 

3 1676 1799 INCR I~FROM 0 TO .CHARS_READ - 1 DO 

3: 1677 1800 4 ate 

3 1678 1801 4 CHAR = CHSRCHAR_A eacetiae 

; 1679 1308 4 IF R MAR NEQ 0 

; 1680 1803 4 THE 

3; 1681 1804 5 BEGIN 

; 1682 1805 5 CHSWCHAR_A (.CHAR, OUTPUT_PTR); 

3 168 1806 5 CURR COI RRAME CSDSLSB ENT_BIRLEN] = 

3 1684 1807 5 URR_DIRNAME CSDSL$B_ENT_DIRLEN] + 1; 
3; 1685 1808 4 END; 

3 1686 1809 4 

3: 1687 1810 3 END; 

3; 1688 1811 3 

3; 1689 aig 3 

: 1690 1813 3 ! Strip off trailing quote. 

3; 1691 1814 3 ! 

3; 169 1815 3 IF ,QUOTE_FLAG 

3: 169 1816 3 THEN 

3 1694 1817 4 BEGIN 

3 1695 1818 4 If CHSRCHAR (.PREV_CHAR_PTR) EQL DBGSK_QUOTE 

3 1696 1819 4 THEN 

3; 1697 1820 5 BEGIN 

: 1698 1821 5 CURR_DIRNAME CSDSL$B_ENT -PIRLEN) = e CURR_D IRNAME [SDSL $B_ ENT_DIRLEN) 
3: 1699 1822 5 = (. INPUT_PTR PREV_CHAR_PTR = 1); 
: 1700 1823 2 QUOTE_FLAG = FALSE; 

3; 1701 1824 END 

: 1708 139? 5 

3; 170 1826 4 END 

: 1788 tH 4 

3; 1705 1828 4 

: 1706 1368 4 ' 22? 

3: 1707 1830 4 ! 

: 1708 133! ; ELSE IF .DBLQUOTE_FLAG 

3; 1709 1 3 THEN 

; 1710 1835 4 BEGIN 

: 1711 1834 4 IF CHSRCHAR (.PREV_CHAR_PTR) EQL DBGS$K_DBLQUOTE 
3 7i¢ 1835 4 THEN 

: 171 1338 5 BEGIN 

> 1714 1 CURR_DIRNAME CSOSL$B_ ENT_DIRLEN] = .CURR_DIRNAME CSDSLSB_ENT_DIRLEN] - (.INPUT_PTR - 
> 1715 1838 -PREQ_CHAR_PTR - 

: 1716 1839 DBLQUOTE_FCAG = “race: 

3 1717 1840 4 END; 
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vOo~000 


END; 
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If there are still characters left in the input string, increment 
CHARS_READ to take us past the separating comma. 


TOT_CHARS_READ LSS .TOT_LENGTH 


EGIN 
ARS_READ = .CHARS_READ + 1; 
_CRARS_READ = .TOT_CHARS_READ + 1; 


a i in i, a Py, Pn i Se i | 


WAN AWANWIIPPOPONEPONINPUNY PY 


DESC COSCSW_LENGTH] = .LEX_ STG_DESC CDSC$W LENGTH] = .CHARS_ REA 
+ DSCSA_POINTER] = CHSPLUS”(.LEX_STG_DESC CDSCSA_POINTERJ, 
= 0; 


End of outer while loop 
IF .QUOTE_FLAG OR .DBLQUOTE_FLAG THEN SIGNAL (DBG$_MATQUOMIS); 


D; 
.CHARS_READ); 


OBNOVEWN —OOONOUEWN—OOw 


Ww 


! Place pare Linked List into into the result pointer. 
SULT_PTR = . catalan 


RE z .f 
RETURN STS$K_SUC 
END; 


to 
IR 
cE 
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A= PRVNNNNNN WWW BE AWWW AAA 

ore 

zZxmmm 

> <>< 
. 

OuW Ma 

_=——4 20 

DAD OA 
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OFFC 00000 .ENTRY DBGSNGET_DIR_LIST, Save R2,R3,R4,R5,R6,R7,- ; 1613 
R8,R9,R1O,R1T ; 
5E 20 ¢2 00002 SUBL2 #32, §P ; 
52 04 AC 00 00005 MOVL LEX STG_DESC, R2 + 1689 
5A $2 3¢ 00009 MOVZ2WL (R2T, TOT_LENGTH ; 
55 04 0000C CLRL ‘ TOT_CHARS~READ + 1690 
59 04 0000E CLRL QUOTE _FLA : 1691 
5B 04 00010 CLRL DBLQUOTE FLAG : 1698 
57 D4 00012 CLRL CHARS : 169 
18 AE 01 7D 00014 MOVG #1, FIRST _DIR_FLAG : 1699 
14 AE D4 00018 CLRL = PREV_DIRNAME : 1700 
53 04 Ag H 90018 MOVAB 4(R2J, R : 1703 
5A 55 1F 1$: CMPL § TOT_CHARS_READ, TOT_LENGTH : 1701 
03 19 000 2 BLSS $ ; 
01 ¢ 1 4 BRW 5$ ; 
56 5 b0 800 7 28: MOVL (R3), INPUT_PTR : 1703 
54 Hi A 0002A MOVZBL (INPUT_PTR)?, CHAR : 1704 
20 4 D1 00020 3$: CMPL CHAR, #32 : 1709 
19 12 000 BNEG 4$ : 
SA 55 D1 000 CMPL §_ TOT_CHARS_READ, TOT_LENGTH ; 
B 18 00 BGEG © 4$ ; 
54 9A MOVZBL (INPUT_PTR)+, CHAR : 1711 
D6 A INCL  TOT_CHARS_READ : 1712 
é D6 03¢ INCL  (R3 > 1714 
62 B7 0003E DECW  (R2) : 1715 
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:1 
:7 DEBUG. SRC. JDBGNPARSE B32; 1 (11) 
B 11 049 BRB 3$ : 1709 
1 D4 00042 4$ CLRL sR + 1718 
27 4 D4 44 CMPL CHAR, #39 : 
4 1 47 BNE $ : 
1 06 049 INCL = R21. : 
05 11 00048 BRB 6$ : 
22 4 01 00040 5$ CMPL CHAR, #34 : 
14 12 0005 BNEG $ : 
5 51 €9 00052 6$ BLBC ~=._s«aR1,,_ 78 + 1721 
9 01 pO 0005 MOVL #1, QUOTE_FLAG : 1723 
03 11 00058 BRB 8$° : 
58 01 00 005A 7$: MOVL #1, DBLQUOTE_FLAG : 1726 
63 6 D 8$: INCL (R$) : 17 
$2 B7 0005F DECW = (R2) : 1733 
55 D6 00061 INCL TOT_CHARS_READ + 1734 
54 86 9A 00063 MOVZBL (INPUT PTR)+, CHA : 1735 
SA 55 D1 00066 9$: CMPL =o TOT_ PURRS READ, OT _LENGTH + 1741 
57 18 00069 BGEQ ©: 17$* 3 
1) 54 01 00068 CMPL CHAR, #13 + 1742 
52 13 0006 BEQL Ss ; 
2c 54 Di 0007 CMPL CHAR, #44 + 1763 
04 12 0007 BNEQ = ; 
49 1c =6AE ES 00075 BLBC —sCiIN_BRACKETS, 17$ : 
00000058 =F 54 D1 00079 10$:  CMPL CHAR, #91 : 1746 
05 13 00080 BEQL «=ss«a'18 ; 
3¢ 54 01 00082 CMPL CHAR, #60 : 
04 12 0008 BNEG = ; 
1C AE 01 DdO 00087 11$: MOVL #1, IN_BRACKETS é 
0000005D = 8F 54 D1 00088 12$:  CMPL CHAR, #93 : 1767 
05 13 00092 BEQL 13$ ; 
3E 54 D1 00094 CMPL CHAR, #62 : 
03 12 00097 BNEQ 14$ : 
1¢ AE 04 00099 13$:  CLRL IN BRACKETS ; 
20 54 01 0009C 14$:  CMPL CHAR, > 1/48 
04 13 0009F BEQL esa : 
58 FF Ab 9E OOOAI MOVAB -1(R6), PREV_CHAR_PTR : 1750 
Oc AE 54 DO OOOAS 153:  MOVL CHAR, PREV_CRAR : 173¢ 
54 86 9A 000A9 MOVZBL (INPUT _PTRY+, CHAR : 175 
0D 5B €9 OOOAC BLBC DBLAUOTE » FLAG, 16$ : 1759 
22 54 D1 OOOAF CMPL : 1760 
08 12 000B2 BNEQ : 
22 OC AE D1 000B4 CMPL  PREV_CHAR, #34 : 1761 
02 12 00088 BNEQ : 
6 94 O0BA CLRB = (PREV_CHAR_PTR) : 1763 
D6 OOOBC 168: INCL TOT_CRARS READ : 176 
57 D6 O008E INCL § CHARS_REAB : 1766 
AG 11 000C BRB > 1741 
51 01 A7 9E 00062 178: MOVAB 1(R7), RI : 1772 
51 04 £6 008 DIVL2 #4, Rf ; 
02 Al SF 000¢ PUSHAB 2(R1) : 
000000006 00 01 FB 00¢ CALLS #1, DBGSGET_MEMORY : 
07 1 AE £9 0000 BLOC  FIRST_DIR_FCAG, 18$ : 1773 
18 AE D4 0000 CLRL = FIRST DIRTF Ag : 1776 
04 AE 50 D SODA MOVL CURR -DIRNARE , F IRST_DIRNAME : 1777 
146 AE D ODE 18$:  TSTL PREVIDIRNAM > 1783 
4 13 OO0E BEQL 19$ ~ : 
14 BE 0 pO 000E3 MOVL § CURR_DIRNAME, @PREV_DIRNAME : 1785 


DBGNPARSE 
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; Routine Size: 


04 Ad 


51 
04 AO 


383 bytes, 


oe 
-sep- 
1o-ge0-138 
14 AE 50 D0 000E7 19: 
69 4 O00ES 
04 Ad 94 O00ED 
08 AE 83 0 000FO 
10 AE 05 0 9 O00Fg 
os $F Soore 
54 08 BE 9A QOOFE 208: 
08 AE D6 901 
54 DS 001 
OA 18 00107 
10 BE 4 90 90109 
10 AE 06 001 
04 AO 96 0011 
51 57 £2 00113 218: 
iA 59 £9 0011 
27 8 91 011A 
0 12 00110 
56 8 C3 O011F 
be 04 AO 9A 00123 
Ge 51 C3 00197 
31 01 81 00128 
59 D4 00180 
iB 11 00132 
18 5B £9 00134 228: 
23 68 91 00137 
13 1g 00134 
56 58 C$ 0013C 
be 04 AO 9A 00140 
6 51 3 00144 
31 01 81 00148 
5B D4 00140 
SA 35 D1 OO14F 238: 
62 18 00152 
57 06 00154 
$5 D6 00156 
62 37 Ad 00158 248: 
é 37 CO 00158 
57 D4 00156 
FERC 31 0016 
03 59 EB 00163 258: 
0D 3B £9 00166 
00028630 BF DD 00169 268: 
000000006 00 01 FB O0ler 
08 BC 04 AE DO 00176 278: 
50 01 DO 00178 
04 0017E 


Routine Base: 


DBGSCODE + 0A51 


£ ith 


DEBUG. SRCJDBGNPARSE. 


NEW_INPUT_PTR 
, OUTPUT_PTR 


@NEW_INPUT_PTR, CHAR 
NEW INPUT _PTR 


1$ 
CHAR, @OUTPUT_PTR 
Ou 


4(CURR~DIRNAME) 
CHARS_READ, 20$ 
QUOTE"FLAG, 
{EREV_CHAR PTR) « #39 


PREV_CHAR_PTR, INPUT_PTR, R1 
4 (CURR DIRNAME), (SPY 


#1, R1, 4(CURR_DIRNAME) 
QuTE FLAG 


DBLQUOTE FLAG, 23$ 
(PREV_CHAR PTR) #34 


PREV_CHAR_PTR, INPUT_PTR, R1 
4 (CURR DIRNAME) , (SPY 


RI, 

#1, R1, 4(CURR_DIRNAME) 
DBLQUOTE FLAG 
TOT_CHARS_READ, TOT_LENGTH 


CHARS _REAB, (R2) 
CHARS_READ, (R3) 
CHARS_READ 

QUOTE _FLAG, 26$ 
DBL QUOTE FLAG, 27$ 
#167472 


#1, LIBSSIGNAL 
FIRST DIRNAME , @RESULT_PTR 


AX-11 Ol igsnze v4 o-735 


Pe Se Ge Se Se Se Se Se Se Be Be Be Se Se Be Se Se Ge Be Se Se Ge Be Se Be Se Be Se Fe Se Se Se Se Se Se Be Se Ge Se Be Se Be Ge Se Be Be Be 


— —s ss 4 ss ss — 
SISOSoe Po 

ONManaA w 
O-wNOvw— Ow 


waatad 
Soo 
SUS 


16 
DBGNPARSE 18-36-1986 01:47:21 AX-11 Bliss-32 V4.0-74 6 0 
v04-000 : 3 D | age $$ 


14-Sep-1984 12:17:1 DEBUG. SRC JDBGNPARSE .832;1 

i re LOBAL ROUTINE DBGSEXPAND_DEF INE_NAME(INPUT_DESC, KIND, RESULT_ADDR) = 
‘8 % FUNCTION 
4 71 This routine checks for the next symbol in the input stream being 

0 ie aname which has been define with the DEFINE command. If so, and 

1 7 if the kind matches the kind given in the input parameter, then 

¢ gre the corresponding value is returned in result_addr. 
az a76 INPUTS 
2? 1 : INPUT_DESC - A string descriptor for the remaining input. 

57 79 

58 880 of define_address, define_command, define_procedure, 
59 define_string, or define_value) 


RESULT_ADDR = The address in which to leave the result 


OUTPUTS 
The routine value is one of: 
TRUE = A matching symbol was found 
FALSE = A matching symbol was not found 


If TRUE, the output parameter RESULT_ADDR is filled in. 


Also, the input descriptor is updated to point past the name 
that was read. 


G 
t 
} 
i 
i 
i 
i 
} 
i 
: 
} KIND - The kind of DEFINE symbol we are expecting (one 
' 
i 
i 
1 
i 
i 
i 
1 
i 
i 
i 
i 
i 
BEGIN 


MAP 
INPUT_DESC: REF BLOCKC BYTE]; 
LOCAL 


Input string descriptor 


S55H000 0000 O O00 00 00 0 60 59.09 99 80 


MEWN OC OONAUEWN OC OONOUS WR 


FOUND_FLAG, TRUE if we found a DEFINEd 
symbol oe the input 
GLOBAL _FLAG, Holds an output value for 


u 
DBGSDEF _SYM_F IND 
Dummy error message vector 
! Points to a name which 
could potent tatty be 
a DEFINEd symbol. 
Copy of the length from the 
original input descriptor 


MESSAGE_VECT 
NAME_PTR: REF VECTORC.BYTE, 


$ 


PRoPOROPOMOPOPOPOPOPOPONINIMOPONINIPINIPIPYPUPININPIPINININYD) 2 9 tt 9 tt 


090909 69 09 09 SI NIN SIN NN NINN SIO A AAAAAAS 


SAVED_INPUT_LENGTH, 


SSB 


SAVED_INPUT_POINTER, Copy of the pointer from the 
_ original input ~~ scriptor 
91 SYMBOL _KIND Kind of defined syn 
14 SYMBOL ~ VALUE; Value of DEFINEd symvol 


SSE 


: Initialize found_flag. 
FOUND_FLAG = FALSE; 


ahatiabadbabubebabatighatadabadabedababedaetad abadedabadetatadatiatabadababadadadabadababababababuababababtaiabababaiuiad 
Ssss 
co-~y 


SOSSAIVISSIIA AAAS SAAS VI SOTO OOO 
eal aed nd ed ce ee ee ee en ee ed ee ee ee ee ce ee ei a ce a a a ed eed a ee ee ee ee ee ce eg ce ce ce ee ce ee ee ee ee ee ee 


Be Se Ge Se Se Se Ge Se Se Ge Se Se Se Se Ge Ge Ge Se Ge Se Ge Se Ge FH Fe Se Se Ge Ge Ge Se Se oe Gs SH Ge Ge Ge Se Ss Se Ss Se Se Se BF Se Se SF Se Se Se Se SH Stee ee 


DOOOOOOOOODOOVOOOOOVODO 
PROMORPR) — — 3 OOO 
FW OOONOUE WN O0On 


First save away the input descriptor. 


Nn 


DBGNPARSE 
voe~000 


Se 


oOo 


WN O OONAVUE WN OOONOUFE WN —O0OW 


WIAA NININIPUNINIMI NID 2 2 2 OO OS SOO 


ae 


a ee ee ee ee ee ee ee ee ee ee ee ee 
Yyvy 
owoon 


OOnNOuewr— 


MEW "OODONAW 


Qo oo oO OC CLL LLL LC CCOCOOCCOCOOOCOOOCO 
TTP oe et et et et ee et ee et 


4 > 2 ds —s 2) > 2 — 2s a 2s > > — 2» —» 2s — > 9) _ as 5s 2s as _ 2s 2 2) a 2 
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H 16 
16-Sep-1984 01:47:1 AX-11 Bliss-32 V4.0-74 
19-351 38e RE DEBUG. SRC IDBGNPARSE .B3 37 
SAVED_INPUT_POINTER = . INPUT DESC COSCSA_POINTER]; 
SAVED_INPUTLLENGTH = .INPUT_SESC COSCSW_CENGTHI; 


Now attempt to read a name which potentially could be DEFINEd. 
IF DBGSNREAD_NAME (. INPUT_DESC, NAME_PTR, MESSAGE_VECT) 
BEGIN 


If we read a name, we now attempt to look it up. 


if DBGSDEF_SYM_FIND (.NAME_PTR, SYMBOL_KIND, 
nan SYMBOL_VALUE, GLOBAL_FLAG, MESSAGE_VECT) 


BEGIN 

' Found a definition. Check the type of symbol. We expect 
the kind to match what is given in ‘‘kind’’ at this point. 
if .SYMBOL_KIND EQL .KIND 

THEN 


BEGIN 
-RESULT_ADDR = .SYMBOL_VALUE; 
FOUND FLAG = TRUE; 


END; 


Deallocate the space for the name. 
DBGSREL_MEMORY (.NAME_PTR); 
END; 


' If we found a symbol, return success. Otherwise, back up the input 
descriptor so that it will be returned unchanged. 

iF .FOUND_FLAG THEN RETURN TRUE; 

INPUT_DEST DSCSA_POINTER] = .SAVED_INPUT POINTER; 


INPUT-DESC COSCS$W_LENGTH) = .SAVED_INPUT_CENGTH; 
RETURN FALSE; 


END; 


003¢ 00000 ENTRY DBGSEXPAND_DEF INE_NAME , Save R2,R3,R4,R5 
5E 14 (2 9008 SUBL2 #20, SP 
53 D4 900 CLRL FOUND_FLAG 
52 04 AC D9 007 MOVL § INPUT“DESC, R2 
54 4 A2 00 00008 MOVL  4(R2)7 SAVED_INPUT_POINTER 


reef 


GNPARSE 
voe~000 
55 
000000006 99 
1 
000000006 go 
08 AC 
oc «iB 
8 
000000006 00 
04 
50 
04 A2 
62 
3; Routine Size: 102 bytes, Routine Base: 


_—— 
om 


62 3t goon 
Se AE OF 1 
4 AE 9F 1 
5¢ 0D 1 

9 Fe QO1A 

0 3 021 

04 AE 9F 00024 

OC AE OF : 7 

14 AE OF 4 

1€¢ AE 9F 00020 

10 ag Dd 000 ! 
50 £9 000 

0 € OSA 

10 AG D1 4 

08 12 00042 

OC AE DO 00044 

01 DO 00049 

6E 0D 0004C 

01 FB sales 

53 E9 0005 

01 DO 00058 

04 00058 

54 00 0005¢ 

55 B80 00060 

50 04 00063 

04 00065 


DBGSCODE + OBDO 


aus 
sa° 


18: 
2s: 


3$: 


pa198¢ 12:17 


MOVZWL 
8 


18 AX=11 Otis s-32 V4.0-7 


SAVED _INPUT_LENGTH 
ECT 


NAME_PTR 
#5, BBGSDEF_SYM_F IND 
SyA@OL KIND, KIND 


SYMBOL VALUE . @RESULT_ADOR 
Nahe FOOND_FLAG 


BeesRet MEMORY 
FOUND , 38 
#1, Ro 


SAVED_INPUT_POINTER, 4(R2) 
SAVED. INPUT_LENGTH, (R2) 


DEBUG. SRC) DBGNPARSE. 833; ;1 


roe 8 


1926 
1931 


1938 
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18-Sep-1986 91:47:1 AX=11 Bliss-32 v4.0-76 p 3 
1enee- 13k. FSi T519 = HONSug. BhC3 age 485 


RC JDBGNPARSE .832; 1 


H ! 2) 1328 ! GLOBAL ROUTINE DBGSSYNTAX_ERROR(INPUT_DESC): NOVALUE = 

3; 1 4 1974 1 ! FUNCTION 

; 1854 1975 1! This routine is called when a syntax error has occurred because 
; 1855 1308 1! an expected piece of input was not found. The routine accepts 

; 1e28 1977 1! an input string descriptor as input which is expected to point 

; 185 1978 1! to the start of the offending piece of command input. It then 

; 1858 1979 1! signals the ‘‘need more input” message if the next character is 

; 1859 1980 1! a Carriage-return (unexpected end of input) or the ‘'syntax error’’ 
; 1860 138) 1: error message otherwise. 

>; 1861 19 ¢ 1! 

; 1306 135 1 ! INPUTS 

3; 186 1984 1! INPUT_DESC = A pointer to a og descriptor which points to the 
3; 1864 1985 1! current parse position in the input command Line. 

3; 1865 1356 1! 

3; 1866 1987 1 ! OUTPUTS 

3; 1867 1988 1! INPUT_DESC = The input string descriptor may be updated to point 
3; 1868 1989 1! to the first character after the offending syntactic 

3; 1869 1990 1! entity. 

3; 1870 1991 1! 

; 1871 1936 24 Since this routine always exits by signalling out, no value is 

; 1876 1995 1! ever returned. Control is not returned either. 

3; 187 1994 1! 

: 1874 1995 1 

: 1875 “996 BEGIN 

: 1gee 997 

3; 187 1998 BIND : 

3 1378 +4 DBGSCS_CR = UPLIT BYTE(1, 13); ! Carriage return character 
; 1880 001 OCAL ; 

; 1881 200 STRDESC: BLOCK(8,BYTE] ! String descriptor 

: 188¢ 200 STRPTR: REF VECTOS! BYTE); i Pointer to error string 

; 188 2004 

: 1884 005 

3; 1885 006 

; 1886 2007 : If the Line has already ended, signal the "need more’’ error message. 
; Ht 4 H Otherwise, signal the “syntax error’’ error message. 

3; 1889 2010 IF DBGSNMATCH(.INPUT_DESC, DBGSCS_CR, 1) THEN SIGNAL (DBGS$_NEEDMORE) ; 
; 1890 2011 STRPTR = DBGSNNEXT WORD(. INPUT DESC): 

3; 1891 sols STRDESCCOSC$B_CLASS] = DSC$K_CCASS_S; 

3 1938 201 STRDESCCDSCSB_DTYPE) = DSCS$K bE 

3; 189 2014 STRDESCCDSCSW_LENGTH] = “preereee 3 

3 1894 015 STRDESCCDSCSA_POINTER] = STRPTR(1); 

3; 1895 016 2 SIGNAL (DBG$_SYNTAX, 1, STRDESC); 

3: 1896 017 § RET ON; 

3; 1897 018 

; 1898 2019 1 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
OD 01 OO012E P.ABO: .BYTE 1, 13 : 
DBGS$CS_CR= P.ABO 


DBGNPARSE 
v04-000 


k 16 
16-Sep-1986 01:47:1 AX-11 Bliss-32 v4.0 
1oxee- 138s 93:95:19 


DEBUG. SRC JDBGNPARSE . "833; 37 


PSECT DBGSCODE,NOWRT, SHR, PIC,0 
0004 0000 .ENTRY DBGSSYNTAX ERROR, Save R2 
52 000000006 99 9 a002 HOVA sf GNAL7 R2 : 
5E C 999 SUBL 
01 DD 0000C PUSHL #1 
00000000" EF 9F O000E PUS DBGSCS_CR 
04 at DD 00014 PUSHL Iyrur T Besc 
FRED CF 9 FB 0017 CALLS . DBGSNMATCH 
09 0 €9 0001C BLBC 4% 1$ 
00028000 a DD OO1F PUSHL #164048 
62 1 FB 00025 CALLS #1, LIBSSIGNAL 
04 AC DD 00028 1$: PUSHL INPUT DESC 
F935 ~—sCF 01 FB 000 8 CALLS DEGSNNEXT sWORD 
02 AE 010E 8F B80 000 OVW +240 STRDESC? 
6 60 98 0036 MOVZBW TRPTR), STRDESC 
04 AE 01 AO 9E 005 OVAB 1<R0), STRDESC+4 
5E DD 000 4 PUSHL 
01 DD 0004 PUSHL 
00028238 8F DD 00048 PUSHL #164408 
62 03 FB 0004 CALLS #3, LIBSSIGNAL 
04 00048 ET 
; Routine Size: 76 bytes, Routine Base: DBGSCODE + 0C56 
: 1899 2020 1 
: 1900 2021 0 END ELUDOM 
.EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
: Name Bytes Attributes 
: DBGSOWN 81 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC.ALIGN(2) 
> DBGSPLIT 304 NOVEC.NOWRT, RD. EXE, SHR i, REL, CON, PIC,ALIGN(O) 
+ DBGSCODE 3202 NOVEC.NOWRT. RD. EXE, » REL, CON, PIC,ALIGN(O) 
; Library Statistics 
: ecceceocece Symbols ecescece Pages Processing 
; File Total Loaded Percent Mapped Time 
; .$255$0UA28:(SYSLIBILIB.L32;1 18619 8 0 1000 00:01.9 
; 7$255$0UA28: (DEBUG. 0B, STRUCDEF 43231 32 9 0 ? 99:00.1 
; 7S 33 $DUA g: DEBUG.OBJ 13231 154 6 4 97 :01.9 
: 7$255$puUA28: (DEBUG. 0BJ De TRECRDS. L32;1 
: 418 0 9 31 99:00.3 
> $255$DUA28:(DEBUG.0BJ JDBGMSG.L32;1 386 11 2 0:00. 


DBGNPARSE 
vOs~000 


piso: 


un Time 


$ep-1984 01:47:1 AX-11 Bliss-32 v4. 
1§-t¢ at 7 9}: 21731 DEBUG. SRC CWsearanse 63 832;1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=L1S$:DBGNPARSE/OBJ=0BJ$:DBGNPARSE MSRC$:DBGNPARSE/UPDATE=(ENH$: DBGNPARSE ) 
3202 code + 385 data bytes 
61589" , 


ny Teer OF333°° 
Lines/CPU Min: S356 
Lexemes/CPU-Min: 12329 
Memo 
Comp 


Y Used: 462 pages 
a 


i 


tion Complete 


Pee 485 
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